UNCLASSIFIED 


_ AD  NUMBER _ 

ADB139386 

LIMITATION  CHANGES 
TO: 

Approved  for  public  release;  distribution  is 
unlimited. 


FROM: 

Distribution  authorized  to  U.S.  Gov't,  agencies 
only;  Administrative/Operational  Use;  DEC  1989. 
Other  requests  shall  be  referred  to  Arnold 
Engineering  Development  Center ,  Arnold  AFB,  TN. 


_ AUTHORITY 

AEDC  ltr  3  Feb  1992 


THIS  PAGE  IS  UNCLASSIFIED 


F®’ 15  199IT 


AEDC-TR-89-15  V 


PARC  Code:  Theory  and  Usage 


G.  K.  Cooper  and  J.  R.  Sirbaugh 
Sverdrup  Technology,  Inc. 


December  1989 


Final  Report  for  Period  July  1,  1985  —  June  30, 1989 


Amoved  for  pcbflc  release:  dbtribnttgn  BttBmtea. 


Piwribwti  a  1  ■ J  '■  1 '  c  Gmflmmant-aaancia«-«cd-tfaair 
osntractun: BflffllRURBinn uikI  upumtluiiuluu,  Beeambei  t009. 

Qtha»  wiquuJUi  lui  U1I8  <Ji>cum8nt  ahall  6a  HI  Hi  mil  liv  Arnold 
Cagmaering  Devaloyaam  GemarTOOGS,'  Arnold  Air  Frurn.Rnna. 

«tm  37aafl-Bpeo. 


WARNING 

~Hiir  rinnumanf  rnntitirni  ff-hnlrul  rtm«  jaflmgfl  ITT"'*  I*  —**L"*"<t- 

hg  tht  *irrnn  Briptrl Art  ITHIn  T  IHf  Ini  TTIilnit 
| ajn£a|x»>  a.4mini»,n»in.,  *■- ♦  tmn,  «n 

■60^-lLSLC  Ann  9AQ1,  at  gea.  VjfllaitoAR  i  f  11  i  mi  inriimt  Imfff 
■mnhjant  f  ac  w  aHmlnal  ponnftmn  ninnmwInatB  III  ulUumncB*' 
>Mlth  tha  ^Mvlaiawa  mNUTI  00  9*1  .•* 


ARNOLD  ENGINEERING  DEVELOPMENT  CENTER 
ARNOLD  AIR  FORCE  BASE,  TENNESSEE 
AIR  FORCE  SYSTEMS  COMMAND 
UNITED  STATES  AIR  FORCE 


TECKEj 


FILE 


iiaruiiXS 


AEDC  TECHNICAL  LIBRARY 


•ser-wwa-a 


NOTICES 


When  U.  S.  Government  drawings,  specifications,  or  other  data  are  used  for  any  purpose  other  than 
a  definitely  related  Government  procurement  operation,  the  Government  thereby  incurs  no  responsibility 
nor  any  obligation  whatsoever,  and  the  fact  that  the  Government  may  have  formulated,  furnished,  or 
in  any  way  supplied  the  said  drawings,  specifications,  or  other  data,  is  not  to  be  regarded  by  implication 
or  otherwise,  or  in  any  manner  licensing  the  holder  or  any  other  person  or  corporation,  or  conveying 
any  rights  or  permission  to  manufacture,  use,  or  sell  any  patented  invention  that  may  in  any  way  be 
related  thereto. 

Qualified  users  may  obtain  copies  of  this  report  from  the  Defense  Technical  Information  Center. 


References  to  named  commercial  products  in  this  report  are  not  to  be  considered  in  any  sense  as  an 
endorsement  of  the  product  by  the  United  States  Air  Force  or  the  Government. 


DESTRUCTION  NOTICE 


For  classified  documents,  follow  the  procedures  in  DoD  5220.22-M, 
Industrial  Security  Manual,  Section  11-19  or  DoD  5200. 1-R,  Information 
Security  Program  Regulation,  Chapter  IX.  For  unclassified,  limited  docu¬ 
ments,  destroy  by  any  method  that  will  prevent  disclosure  or  reconstruction 
of  the  document. 


APPROVAL  STATEMENT 


This  report  has  been  reviewed  and  approved. 


'1/V\cuL  d .  SddLj 

MARK  S.  BRISKI,  Capt,  USAF 
Directorate  of  Technology 
Deputy  for  Operations 


Approved  for  publication: 
FOR  THE  COMMANDER 


16uOCL  '£■ 


KEITH  L.  KUSHMAN 
Technical  Director 
Directorate  of  Technology 
Deputy  for  Operations 


REPORT  DOCUMENTATION  PAGE 


Form  Approved 
OMB  Wo.  0704-0788 


Public  reporting  burden  for  collection  of  Infornufion  is  estimated  to  average  1  hour  per  response,  Including  the  Hire  for  reviewing  instructions,  Marching  existing  datatourcts. 
gathering  and  maintaining  the  data  needed,  and  completing  and  reviewing  the  collection  of  information  Send  comments  regarding  this  burden  estimate  oi  anyotner  aspect  of  thtt 
collection  of  infornwtion.mcliiding  suggestions  for  reducing  this  burden.  io  Washington  Headquarters  Services,  Directorate  for  Information  Operations  and  Reports.  I2IS  Jefferson 
Pavn  Highway.  Suite  1204,  Arlington,  VA  2220 2-4302.  and  to  the  Office  of  Management  and  Budoet.  Paoerwort  Reduction  Profect  (0704-C  m),  Washington,  OC  20503. 


1 .  AGENCY  USE  ONLY  (Leave  blank) 


4.  TITLE  AND  SUBTITLE 

PARC  Code:  Theory  and  Usage 


2.  REPORT  DATE 

December  1989 


3.  REPORT  TYPE  AND  OATES  COVERED 

Final  Report  for  July  1, 1985-June30, 1989 


5  FUNDING  NUMBERS 
PE-65807F 


6  AUTHOR(S) 

Cooper,  G.  K.  and  Sirbaugh,  J.  R..  Sverdrup  Technology,  Inc.,  AEDC  Group 


7.  PERFORMING  ORGANIZATION  NAME(S)  AND  ADDRESSES) 
Arnold  Engineering  Development  Center/DOT 
Air  Force  Systems  Command 
Arnold  Air  Force  Base,  TN  37389-5000 


8.  PERFORMING  ORGANIZATION 
REPORT  NUMBER 

AEDC-TR-89-15 


9  SPONSORING /MONITORING  AGENCY  NAMES(S)  AND  ADDRESS(ES) 

Arnold  Engineering  Development  Center/DO 
Air  Force  Systems  Command 
Arnold  Air  Force  Base,  TN  37389-5000 


10.  SPONSORING/MONITORING 
AGENCY  REPORT  NUMBER 


II.  SUPPLEMENTARY  NOTES 

Available  in  DefenseTechnical  Information  Center  (DTIC). 


1 2a.  DISTRIBUTION/AVAILABILITY  STATEMENT 

Distribution  authorized  to  U.  5.  Government  agencies  and  their  contractors; 
administrative  and  operational  use;  December  1989.  Other  requests  for  this 
document  shall  be  referred  to  Arnold  Engineering  Development 
Center/DOCS,  Arnold  Air  Force  Base,  TN  37389-5000. 


12b.  DISTRIBUTION  CODE 


13.  ABSTRACT  (Maximum  200  words) 

The  PARC  code  is  a  general  purpose  flow  simulation  computer  program.  It  is  based  on  the  NASA  Ames- 
developed  ARC  code  and  has  been  extensively  enhanced  for  usage  in  an  applications-oriented  environment  A 
wide  variety  of  flows  may  be  simulated,  including  those  with  complex  geometries  (e  g.,  aircraft  forebody  and 
inlet  in  a  wind  tunnel)  and  those  with  complex  fluid  dynamics  (e.g.,  turbulent  wall  jet).  Flow  simulations  may 
be  two-dimensional,  axisymmetric,  or  three-dimensional;  also,  they  may  be  inviscid,  laminar,  or  turbulent. 
Generalized  boundary  conditions  may  be  located  anywhere  within  the  computational  grid.  Flow  geometries 
may  be  treated  by  blocks  so  that  the  grid-generation  process  is  simplified,  and  very  complex  problems  may  be 
simulated.  This  flow-simulation  program  has  proven  to  be  a  very  versatile  and  robust  tool  for  the  analysis  of 
engineering  problems  involving  fluid  flows. 


T4  SUBJECT  TERMS 
fluid  flow  simulator 
Navier-Stokes  solver 


PARC  code 
Euler  solver 


ARC  code  computational  fluid  dynamics 


15  NUMBEROF  PAGES 

154 


16.  PRICE  CODE 


17  SECURITY  CLASSIFICATION 
OP  REPORT 

UNCLASSIFIED 


1 8.  SECU  RIT  Y  CLASSl  F ICATION 
OF  THIS  PAGE 

UNCLASSIFIED 


1 9.  SECURITY  CLASSIFICATION 
OF  ABSTRACT 

UNCLASSIFIED 


20  LIMITATION  OF  ABSTRACT 
Same  as  Report 


COMPUTER  GENERATED 


Standard  Form  29B  (Rev,  2-89) 

Prescribed  by  ansi  Sid  Z39-1B 
298-102 


AEDC-TR-89-1 5 


PREFACE 

The  work  reported  herein  was  conducted  by  the  Arnold  Engineering  Development  Center 
(AEDC),  Air  Force  Systems  Command  (AFSC).  The  results  of  the  research  were  obtained 
by  SverdrupTechnology,  Inc.,  AEDC  Division,  operating  contractor  for  the  engine  test  facilities 
at  AEDC,  AFSC,  Arnold  Air  Force  Base,Tennessee  37389,  under  Project  Number  DB84EW. 
The  Air  Force  Project  Manager  was  Capt.  Mark  Briski,  DOT.  This  portion  of  the  research 
was  completed  on  June  30,  1989,  and  the  manuscript  was  submitted  for  publication  on 
November  27,  1989. 
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1.0  INTRODUCTION 

This  technical  report  is  an  extensive  update  of  the  previous  identically  titled  technical 
report,  AEDC-TR-87-24.  Although  much  of  the  material  is  the  same,  it  has  been  reorganized, 
and  a  number  of  new  topics  have  been  added.  In  particular,  the  sections  on  boundary 
conditions  and  artificial  viscosity  have  been  enhanced.  The  psuedo-Runge-Kutta  algorithm 
section  and  several  new  appendixes  (See  Appendixes  A  through  E)  have  been  added. 
Incorporation  of  the  blocked  grid  concept  into  the  PARC  code  has  resulted  in  changes 
throughout  the  TR,  especially  in  the  boundary-condition  treatment.  Appendix  D  describes 
the  differences  between  the  current  version  of  the  PARC  code  and  the  version  covered  in 
the  previous  TR.  This  report  accurately  reflects  the  state  of  the  AEDC  version  of  the  PARC 
code  as  of  the  fall  of  1989. 

As  with  other  types  of  aerospace  testing,  turbine  and  rocket  engine  testing  requirements 
are  making  escalating  demands  on  computational  fluid  dynamics  (CFD)  as  a  means  to  reduce 
the  costs  and  risks  involved  in  test  planning,  execution,  and  analysis.  Since  even  the  simplest 
engine  test  always  involves  a  hot,  turbulent,  chemically  complex  exhaust,  and  since  many 
problems  of  current  interest  involve  complex,  multiple-flow  passages,  these  demands  on  CFD 
are  very  stringent  indeed.  Although  many  specialized  CFD  codes  have  been  developed  to 
treat  selected  subsets  of  engine  testing  problems,  there  remains  a  largely  unsatisfied  requirement 
for  a  general  purpose  CFD  tool  that  is  at  least  qualitatively  applicable  to  the  bulk  of  engine 
testing  needs.  The  PARC  Navier-Stokes  code  was  developed  for  use  within  the  Engine  Test 
Facility  (ETF)  at  the  Arnold  Engineering  Development  Center  (AEDC)  with  this  in  mind. 
This  computer  program  has  proven  capable  of  treating  many  propulsion  testing  problems 
(e.g.,  thrust-reversing  engine  exhaust  collector  design  and  free-jet  test  design  for  inlet  icing 
studies)  that  could  not  be  dealt  with  otherwise.  This  report  provides  the  background  and 
technical  details  necessary  for  the  proper  use  of  this  Navier-Stokes  code. 

1.1  PARC  CODE  FEATURES 

The  PARC  code  is  a  flow-field  simulation  program,  which  calculates  the  thermodynamic 
and  kinematic  properties  of  a  fluid  flow  at  discrete  points  within  the  flow  based  on  a  specified 
boundary  geometry  and  appropriate  flow  conditions  on  these  boundaries.  The  boundaries 
can  be  very  complex,  and  the  fluid  can  be  treated  fairly  generally.  Inviscid  and  viscous  flows 
can  be  calculated.  Viscous  flows  can  be  laminar  or  turbulent  and  can  be  treated  as  fully  viscous 
or  as  shear-layer  flows.  These  programs  may  be  used  to  simulate  steady-state  and  transient 
flows  and  are  available  in  a  two-dimensional  (2-D)/axisymmetric  version  and  a  fully  three- 
dimensional  (3-D)  version.  Although  the  PARC  codes  are  written  in  FORTRAN  77,  they 
use  a  number  of  CRAY®  extensions  that  may  not  be  supported  on  other  scientific  computers 
(See  Appendix  B).  This  program  is  fairly  easy  to  use  and  does  not  require  more  than  a  good 
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engineering  background  to  use  and  abuse  it.  Although  it  is  not  necessary,  it  is  highly 
recommended  that  its  use  be  associated  with  personnel  versed  in  the  science  and  art  of  CFD. 
This  report  has  been  written  based  upon  this  assumed  usage.  Thus,  the  theory  sections  do 
not  seek  to  teach  CFD,  only  to  state  particular  applications  of  theory.  On  the  other  hand, 
the  usage  sections  should  be  understandable  to  any  well-motivated  individual  who  is  familiar 
with  computers  and  is  conversant  in  the  theory  of  fluid  flows. 

1.2  OVERVIEW 

The  first  section  (Physical  Models)  sketches  out  the  basic  physical  and  mathematical 
concepts  used  in  the  PARC  code.  The  nondimensionalization  used  is  reviewed;  the  Navier- 
Stokes  equations  in  both  Cartesian  and  curvilinear  coordinates  are  noted;  and  the  auxiliary 
relations  are  presented.  A  brief  discussion  is  included  on  the  turbulence  model  used  in  the 
PARC  code.  The  next  section  (Computational  Algorithms)  reviews  the  numerical  methods 
of  the  PARC  code.  The  discretization,  artificial  viscosity  formulation  and  solution  algorithms 
are  treated  first.  A  discussion  is  included  on  the  various  variable  time-step  options.  Then 
the  numerical  treatment  of  the  boundary  conditions  and  metrics  are  covered.  Basic  usage 
background  information  is  presented  in  the  next  section  (Usage  Concepts).  Material  covered 
includes  nondimensionalization  requirements,  grid  notions,  the  grid-blocking  concept,  and 
the  generation  of  initial  conditions.  Also,  the  practical  aspects  of  the  specification  of  viscous 
flow  and  artificial  viscosity  parameters,  and  the  proper  understanding  of  the  time-step  options 
is  presented.  This  section  concludes  with  coverage  of  boundary-condition  construction  and 
output  specifications.  The  Operation  section  of  this  report  steps  the  PARC  code  user  through 
the  use  of  this  program.  PARAMETER  statement  modification,  input  file  usage  and  input 
file  contents  are  covered. 


2.0  PHYSICAL  MODELS 

The  basis  of  the  algorithms  used  in  the  PARC  code  is  the  complete  Navier-Stokes  equations 
in  conservation  law  form.  That  is,  the  divergence  form  of  the  time-dependent  continuity, 
momentum,  and  energy  equations  is  at  the  heart  of  the  physics  embodied  in  this  code.  To 
reduce  the  complexity  and  computer  memory  requirements  of  this  code,  the  2-D,  axisymmetric, 
and  3-D  specializations  of  the  Navier-Stokes  equations  are  treated  in  two  separate  versions 
of  the  PARC  program  (PARC2D  and  PARC3D,  respectively).  Various  additional 
specializations  are  provided  for  within  each  of  these  programs.  For  example,  the  viscous  terms 
can  be  selectively  calculated  so  that  a  thin-layer  simulation  can  be  performed  or  an  inviscid 
(Euler)  flow-field  calculation.  Similarly,  for  viscous  simulations  the  fluid  flow  can  be  treated 
as  laminar  or  turbulent  as  desired.  Turbulent  flow  is  calculated  by  considering  the  Navier- 
Stokes  equations  as  having  been  Reynolds-averaged  (mass-averaged)  and  by  using  an  algebraic 
turbulence  model  to  determine  a  turbulent  viscosity.  The  viscous  coefficients  are  determined 
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from  Sutherland’s  viscosity  law,  Stokes  hypothesis,  and  an  assumption  that  the  Prandtl  number 
is  constant. 

2.1  NONDIMENSIONALIZATION 

Definitions  of  fluid  property  notation  and  the  associated  nondimensionalizing  parameters 
are  contained  in  the  following  table: 


Property 

Notation 

Nondimensionalizing 

Parameter 

Density 

e 

Qt 

Pressure 

p 

Ct«? 

Temperature 

T 

Tr 

Internal  Energy  per  Unit  Mass 

e 

a? 

First  Coefficient  of  Viscosity 

#*r 

Second  Coefficient  of  Viscosity 

X 

fh 

Thermal  Conductivity 

K 

Kr 

Velocity  Components 

Ui 

at 

Cartesian  Coordinates 

Xi 

xr 

Time 

t 

Xr/ar 

In  this  table,  the  r  subscript  indicates  an  arbitrary  reference  fluid  state,  and  a,  is  the 
corresponding  reference  sound  speed.  The  following  dimensionless  parameters  are  also 
required: 


Re  =  QAX'/p, 

Pr  =  CpA/Kr 

$r  =  8r/CprTr 

where  C ^  =  reference  specific  heat  at  constant  pressure. 

When  convenient,  the  following  aliases  will  be  used  for  the  velocity  and  coordinate 
components: 


X[  =  X  u,  =  u 
X2  =  Y  u2  =  v 
X3  =  Z  u3  =  w 
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2.2  NAVIER-STOKES  EQUATIONS 

Although  many  simplified  versions  of  the  Navier-Stokes  equations  have  been  successfully 
applied  to  various  propulsion  testing  problems,  in  general  these  very  complex  fluid  flows 
can  only  be  adequately  treated  by  the  full  set  of  equations.  However,  because  of  certain 
unresolved  problems  in  turbulence  modeling,  constraints  imposed  by  the  numerical  technique, 
and  the  desirability  of  keeping  the  analysis  as  simple  as  possible,  a  number  of  assumptions 

t 

and  restrictions  are  required.  This  section  will  present  the  particular  forms  of  the  Navier- 
Stokes  equations  used  in  the  formulation  of  the  PARC  code. 

2.2.1  Cartesian  Conservation  Law  Form 

The  governing  differential  equations  used  to  model  propulsion-related  fluid  flows  are 
the  Reynolds-averaged  Navier-Stokes  equations  for  a  Newtonian  fluid  that  obey  a  Fourier 
heat-conduction  law.  This  system  of  partial  differential  equations  (continuity,  momentum, 
and  energy  equations)  can  be  expressed  in  the  following  nondimensional  conservation  law  form: 

8Q  _8Fl _ 1  8G| 

at  axj  Re  aXj 

where  Q  is  a  vector  containing  the  conservation  variables, 


Q  = 


e 

euj 

E 


The  Fj  vectors  represent  the  inviscid  flux  vectors, 


Fj  = 


euj 

euiuj  +  p  5^ 

.  (E  +  P)uj  . 


and  the  viscous  flux  vectors  (Gj)  are 


0 


Luk  7]k  - 


qj  J 
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For  a  Newtonian  fluid,  the  viscous  stress  tensor  takes  the  form, 


Assuming  a  Fourier  heat-conduction  law,  the  heat  flux  vector  is 


K  3T 
/3rPr  3Xj 


The  total  energy  per  unit  volume,  E,  is  defined  to  be 


For  notational  convenience,  use  has  been  made  of  the  Kronecker  delta. 


=  j 
*  j 


and  of  the  Einstien  summation  convention, 


N 

ukuk  =  UjUj 


(that  is,  repeated  indices  in  a  product  indicate  summation  over  the  range  of  the  indices). 
The  indices  range  from  1  to  2  for  2-D  and  axisymmetric  formulations  and  from  1  to  3  for 
3-D  formulations.  Although  this  mixed  vector-Cartesian  tensor  notation  is  very  compact, 
it  can  also  be  obtuse.  Example  expansions  in  pure  vector  notation  for  2-D  would  be 


e 

eu 

Q  = 

eu 

ev 

F,= 

pu2  +  P 
puv 

_E_ 

J(E  +  P)u 
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g2  = 


/*  (uy  +  Vx) 

2/iVy  +  X  (ux  +  vy) 

#t[u(uy  +  Vj)  +  2v  vyl  +  X  v  (u*  +  vy)  + 


dr  Pr 


where  the  following  subscript  notation  has  been  and  will  be  used  to  denote  partial 
differentiation,  when  convenient: 


u*  = 


du 

"ax' 


Uy  = 


du 

~SY~ 


Uz  = 


3u 

~dZ 


2.2.2  Curvilinear  Coordinate  Conservation  Law  Form 

To  allow  for  the  easy  discretion  of  these  equations  on  arbitrary  grids,  it  is  advantageous 
to  re-express  the  Navier-Stokes  equations  in  terms  of  general  curvilinear  coordinates  while 
retaining  the  strong  conservation  law  form.  The  following  coordinate  transformation  is 
defined: 


£j  =  tj  (Xj,  t) 

Using  this  coordinate  transformation,  the  Navier-Stokes  equations  become 

3Q  3Fj  1  aGj 
~dT  +  ~d§  ~  "Re"  a^ 
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Where  the  vectors  Q,  Fj,  and  Gj  are  linear  combinations  of  the  corresponding  Cartesian 
vectors  Q,  Fj,  and  Gj, 


Q  =  yQ 


F]  =  -L(ilL 

1  j  \  at 


Q  +  Fk 

V  3Xk  k 


A 

Gj  = 


1  3ft 

j  axk 


Gk 


or,  equivalently. 


Q  =  -L 


fiUi 

E 


CUj 

'  o  ' 

euiUj  +  p 

6,=  ± 

J 

aXj 

J 

_{E  +  P)  Uj  -  P-^-_ 

uk’jk  -  qj 

The  contravarient  velocities  are  defined  as 


u + 

J  at  axk 


Transformed  viscous  stress  tensor  and  heat  flux  vector,  are  given  by 

Tij  _  av  ^k 


Qj  - 


axk 

axk 


Qk 


where  the  velocity  and  temperature  derivatives  are 

duj  d£k  dUi 


axj  dXj  a{k 
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_3T_  =  3T 

aXj  aXj  d& 

The  PARC  code  formulation  assumes  that  the  curvilinear  coordinates  do  not  vary  with  time 
so  that  the  above  terms  involving  derivatives  of  the  coordinates  with  respect  to  time  do  not 
appear.  Spatial  coordinate  derivatives  are  collectively  termed  “metrics,”  and  the  Jacobian 
of  the  transformation  is  denoted  by  “J.”  Wherever  it  is  convenient,  the  curvilinear  coordinates 
and  the  contravarient  velocities  will  be  referenced  by  the  following  aliases: 


fa  =  « 

Ui  =  u 

fa  =  n 

U2  -  V 

fa  =  £ 

c 

u> 

II 

Si 

2.2.3  Axisymmetric  Formulation 


In  addition  to  a  special  form  of  the  metrics,  implementation  of  an  axisymmetric  option 
requires  the  following  changes  to  the  2-D  equations.  A  source  term  must  be  included  in  the 
Y-momentum  equation, 


RHSjuu  =  RHSj-d  +  i- 


Re  \  *  JB 


v  +  X  V,  • 


where 


Ja  £1%  £ytyx 
Va  •  U  =  y  V  +  Ux  +  Vy 

Lastly,  everywhere  the  2-D  divergence  (u,  +  vy)  appears  in  the  viscous  terms,  they  are 
replaced  by  the  axisymmetric  divergence. 

2.3  THERMODYNAMIC  PROPERTIES 


Although  the  PARC  code  can  easily  be  modified  to  allow  for  an  arbitrary  functional 
form  for  the  second  coefficient  of  viscosity,  Stokes  hypothesis  has  been  used  in  all  versions. 
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For  a  general  real  gas,  the  thermodynamic  properties  are  found  as  functions  of  density  and 
internal  energy, 

P  =  P  (e,e)  ii  =  n  (g.e) 

T  =  T  (e,e)  K  =  K  (e,e) 

However,  the  current  version  of  the  PARC  code  is  based  on  the  assumption  of  a  thermally 
and  calorically  perfect  gas.  The  following  nondimensional  equations  of  state  are  used: 

P  =  gT/y 

e  =  T/y  (7  -  1) 

This  allows  the  pressure  and  temperature  to  be  expressed  simply  as  functions  of  the 
conservation  variables, 


P  =  (7  -  1)  (E  -  —  0  ukuk) 

it 

T  =  7  (  7  “  1)  (E/e - —  UfcUj 

2 

In  this  case,  the  ratio  of  specific  heats,  y,  is  a  constant,  and  /3r  =  y  -  1 .  The  perfect-gas 
version  of  the  PARC  code  also  uses  the  assumption  of  a  constant  Prandtl  number  and  the 
Sutherland  viscosity  law, 

K  =  n 

H  =  T*'2  (1  +  Ts)  /  (T  +  T*) 

(Ts  =  the  nondimensional  Sutherland  temperature.) 

2.4  TURBULENCE  MODEL 

The  algebraic  turbulence  model  used  in  the  PARC  code  is  loosely  based  on  the  Thomas 
formulation  of  the  Baldwin  and  Lomax  model  (Refs.  1  and  2).  When  turbulence  is  required, 
the  viscous  coefficients  are  modified  as  follows: 

o 
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Mtotil  =  M  +  PT 

^total  _  ^  +  ftT 

Pr  Pr  PrT 

where  pr  is  the  turbulent  viscosity  and  Pr?  is  the  turbulent  Prandtl  number.  The  turbulence 
model  is  made  up  of  two  major  parts,  an  unbounded  flow  model  and  a  bounded  flow  model, 
both  of  which  are  explained  in  the  following  sections. 

2.4.1  Unbounded  Flow 

Each  coordinate  line  for  each  coordinate  direction  is  divided  into  sections  determined 
by  the  location  of  boundaries  and  vorticity  zeros.  Within  each  section  the  turbulent  viscosity 
is  calculated  as 


jit  =  Re  q  t  V 

V  =  tu> 

t  =  t0  [Max  (|uj|)  -  Min  (|Uj|)/uc 

|uj|  =  Vukuk 


where  <wc  is  the  value  of  the  vorticity  at  the  point  where  |o>j|  is  a  maximum,  and  4  is  an 
adjustable  constant.  The  vorticity  is  defined  as  usual  by 


Cl)  = 


V(wy  -  vj2  +  (uz  -  w*)2  +  (vx  -  Uy)2  (For  3-D) 

|vx  -  Uy  |  .  (For  2-D) 


These  turbulent  viscosity  values  are  smoothed  to  alleviate  sudden  changes  in  viscosity  levels. 


2.4.2  Bounded  Flow 


The  bounded  part  of  the  algorithm  is  applied  near  no-slip  boundary  surfaces  and  replaces 
the  unbounded  flow  values  with  bounded  flow  values  of  the  turbulent  viscosity  between  the 
boundary  and  the  point  where  they  match. 


© 
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HT  =  Re  f>  t  V 

t  =  (1  -  e_d+/A+) 

d  =  V(X  -  Xw)2  +  (Y  -  Yw)2  +  (Z  -  Zw)2 
d+  =  V^e  g2  «  dVp* 

V  =  tu 

where  4  is  the  von  Karmai  constant,  and  A+  is  the  van  Driest  constant;  variables  subscripted 
by  W  are  evaluated  at  the  boundary. 

2.5  METRICS 

The  term  “metrics"  is  used  to  refer  to  the  set  of  all  first  partial  derivatives  of  the  curvilinear 
coordinates  with  respect  to  the  Cartesian  coordinates.  Although  they  have  a  precise 
mathematical  definition,  their  actual  evaluation  must  take  into  account  the  numerical  scheme 
in  which  they  are  to  be  used. 

It  is  much  more  convenient  to  evaluate  the  partial  derivatives  of  the  Cartesian  coordinates 
with  respect  to  the  curvilinear  coordinates.  The  following  analytical  relations  provide  the 
means  for  deriving  the  metrics  from  these  derivatives: 

3-D 


J-i  =  Xf(Y,Zf  -  Yj-Zjj)  +  X,  (YfZ*  -  YjZf)  +  Xf  (YfZ,  -  Y„Z{) 
&  =  (Y(fZf  ~  YfZ,)J 

Sy  =  (Z,Xf  -  ZfX„)J 

&  =  (X,Yf  -  XfY,)J 

*1*  =  (YfZf  -  YfZr)J 

Vy  =  (ZfXf  -  Z{Xf)J 

Vz  =  (XfY{  -  XfYf)J 

f*  =  (Y*Z,  -  Y^f)J 

fy  =  (ZfX,  -  Z„X*)J 

fx  =  (XfY,  -  X,Yf)J 
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J-i  =  X(Y,  -  X,Yf 
&  -  Y„J 

£y  =  -X,J 

U*  =  -YfJ 

'Jy  =  X|J 


Axisymmetrie  (X-axis  on  symmetry  axis) 


J-1 

=  <X*Y,  - 

=  YY,J 

=  -YX,J 

% 

=  -  YYfJ 

Vy 

=  YXfJ 

3.0  COMPUTATIONAL  ALGORITHMS 

The  Beam  and  Warming  approximate  factorization  algorithm  (Ref.  3)  is  the  basis  of  the 
steady-state  solution  scheme  of  the  PARC  code.  This  algorithm  is  an  implicit  scheme  that 
solves  the  set  of  equations  produced  by  central-differencing  the  Navier-Stokes  equations  on 
a  regular  grid.  Since  these  equations  are  formulated  in  the  strong  conservation  form  for  a 
curvilinear  set  of  coordinates,  the  resulting  algorithm  is  very  general  with  the  desirable  features 
of  global  conservation  and  shock  capturing.  Its  ADI  style  formulation  makes  this  implicit 
scheme  economical  in  comparison  to  other  implicit  and  explicit  formulations.  The 
implementation  of  the  Beam  and  Warming  algorithm  into  a  Navier-Stokes  code  was  first 
reported  by  Pulliam  and  Steger  (Ref.  4).  This  program,  known  as  AIR2D  or  AIR3D,  was 
then  modified  by  Pulliam  (Ref.  S)  who  diagonalized  the  implicit  matrices  for  more  efficient 
execution  times.  He  also  modified  the  artificial  dissipation  so  that  it  was  treated  completely 
implicitly  and  included  a  Jameson -style  second-order  term  (Ref.  6)  for  improved  shock 
capturing.  This  code,  termed  the  ARC2D  or  ARC3D  program,  has  been  in  widespread  use 
within  the  aerodynamics  community.  The  PARC  codes,  PARC2D  and  PARC3D,  are  directly 
derived  from  the  ARC  codes  and  share  many  of  their  principal  features. 

3.1  BEAM  AND  WARMING  ALGORITHM 

The  difference  scheme  used  in  the  PARC  code  is  the  approximate  factorization  algorithm 
attributable  to  Beam  and  Warming.  This  algorithm  is  an  implicit,  first-  or  second-order  time- 
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accurate,  computationally  robust  scheme  for  solving  the  Navier-Stokes  equations.  Its  delta 
formulation  insures  the  attainment  of  steady-state  solutions,  which  are  independent  of  the 
time-step  size.  The  most  attractive  feature  of  the  algorithm,  as  modified  by  Pulliam,  is  that 
it  forms  an  ADI  type  of  scheme  in  which  each  sweep  involves  the  inversion  of  a  set  of  scalar 
pentadiagonal  matrices.  This  algorithm  has  solved  a  variety  of  complex  2-D,  axisymmetric, 
and  3-D  problems  of  importance  to  propulsion  testing  applications  in  a  timely  manner. 


3.1.1  Time  Differencing 


Although  the  original  Beam  and  Warming  algorithm  contained  very  general  time-difference 
formulas,  the  current  version  of  the  PARC  code  uses  Euler  backward  differencing. 


AQn  +  Ata 


/  dF*+i 

\ 


_L  J2L1L\  =  o 

Re  afj  ) 


which  has  a  truncation  error  on  the  order  of  the  time-step  size  At”.  The  superscript  indicates 
evaluation  of  the  variable  at  the  time  tn;  that  is. 


Q»  =  Q  «i,t") 


where  tn  is  the  n1*1  time  variable  in  a  monotone  increasing  sequence  of  time  variables.  The 
delta-forward  time  difference  is  defined  as 


AQ"  =  Qn+1  -  Q” 


3.1.2.  Time  Linearization 

The  time-differenced  equation  cannot  be  easily  solved  since  the  flux  vectors  are  nonlinear 
functions  of  the  conservation  vector.  However,  the  in  viscid  flux  vector  may  be  time  linearized 
by 


F"+l  *  F?  +  Af  AQ“ 

which  has  a  truncation  error  on  the  order  of  the  square  of  the  time-step  size.  The  Jacobian 
matrix,  Aj,  is  formally  derived  from  vector  differentiation, 
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The  expanded  form  for  a  perfect  gas  is 


Aj  = 


iL 


&  -  UjUj 


3Xj 
(</>2  -  h)  Uj 


JlL 

dXk 


JL 

3Xk 


h  -  (7-l)  ukUj 


yUi 


where 


,7  7~  1 

<t>2  =  - - - U<Uf 


h  =  7 - </>2 

Q 


The  viscous  flux  vector,  G“+1t  could  be  treated  similarly,  but,  in  the  current  version  of 
the  PARC  code,  is  time  lagged  to  allow  the  formation  of  the  scalar  pentadiagonal  algorithm. 
Thus,  the  linearized  form  of  the  time  discretion  is 

(,  +  4t  A  4q.  =  -  At  (*$--  -L 
\  96  /  \»6  He  96/ 

where  1  denotes  the  identity  matrix  of  appropriate  rank. 


3.1.3  Approximate  Factorization 


Since  the  operator  on  AQ"  in  the  previous  equations  contains  derivative  operators  in  all 
spatial  directions,  the  matrix  operator  that  will  be  formed  when  the  derivatives  are  replaced 
by  differences  will  make  solution  of  the  resulting  block  matrix  equation  computationally 
expensive.  If  instead  the  operator  is  factored,  a  series  of  inexpensive  matrix  equations  with 
small  bandwidth  can  be  solved  by 


(I  +  A.AA?)(,  +  A,AAs)(l  +  At-irAS 


AQ"  =  -  At 


where  the  obvious  simplification  occurs  in  2-D.  This  equation  is  still  formally  first-order 
accurate  in  time.  When  the  spatial  derivatives  are  replaced  by  appropriate  differences,  the 
following  algorithm  results: 
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RHS  =  -At  jafF?  +  5„F§  +  5fF"j  -  jd*G?  +  d,G?  +  drGsj 

(I  +  At  A?)  AQ**  =  RHS 
(I  +  At  5,  A?)  AQ*  =  AQ** 

(I  +  At  Sr  A?)  AQ"  =  AQ* 

Qn+l  =  Qn  +  £Qn 

where  the  central  difference  operators  are  defined 

¥*i  =  y  [Fi  (f+l.ij.f)  -  Fj 

*„f2  =  [f2  «,„+  i,n  -  f2  a,v-i,n] 

fifFj  =  j  [F3  «,„,f  +  1)  -  Fj  1)] 


and 


dfGj  =  Gi  +  y,>?,fj  “  |f  -  y^.fj 

d,G2  =  G2  +  yfj  -  G2  |{,jj  -  y.fj 

drG3  =  G3  +  yj  -  G3  -  yj 

In  evaluating  these  midpoint  values  of  the  Gj  vectors,  Gi(£+ 1/2,  if,  f)  for  example,  all 
quantities  are  averaged  in  the  direction  of  the  difference,  except  for  derivatives  of  velocity 
in  this  direction,  which  are  central  differenced;  for  example, 


11  (t+T’,’f)  -  T 

U,|{+y.1,fj  -  ~  jy  |u(f+l,,-l,r)  -  u«+l.,-l,f)j 


+  y  u(£,ij+l,f)  -  u(f,i> 
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Wf 


(«  +  y.i.f)  = 


3.1  ARTIFICIAL  VISCOSITY 

Because  of  the  central  difference  nature  of  this  scheme,  some  artificial  viscosity  is  necessary 
for  stability  and  for  suppression  of  cosmetic  blemishes.  The  Jameson-style  artificial  viscosity 
model  used  in  the  PARC  code  is 


C{  -  e<4>A?V*Aj 


)] 


(JQ)  +  V,  Cj 


e®A,  -  e«>A,  V,  A,  (JQ) 


+  Vf  |cf  |e<2>Ar  -  ^AfVrAfJj  (JQ) 
where  the  forward  and  backward  difference  operators  are 

AfQ  =  Q(*+l,u,r)  -  Q(t,v,n 
v*q  =  Qt^.n  -  Q(f-i,u,n 

with  analogous  formulas  for  the  other  coordinates.  The  nonlinear  coefficients  are  given  by 

Cj  =  C(£+l,if,f)  +  C(£,ij,f) 


for  example,  where 


C  = 


|u  +a^  +  $  +  +  |  V  +a ^jvl  +  ny  +  VzJ  +  | 


w 


_ _ 1 

+  a^d  +  +  ii 


The  second-  and  fourth-order  coefficients  are  defined  as 


e<2>  =  K2Atf 


=  Max  [0,  K^At  -  <K2>] 


And  the  switch  function  f  has  the  basic  form 


f  =  Max  (f*,  f,.  ff) 
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where 


ft  =  1  P«+M,f)  -  2P«,ij,f)  +  Ptt-l,*.0|/|Ptt+ 1.1.0  +  2P((,?,f)  +  P((-l,?,f)| 

In  actual  usage  in  the  PARC  code,  f  is  smoothed  over  immediate  neighbor  points.  The  two 
coefficients  K2  and  K4  have  nominally  maximum  values  of  0.25  and  0.64,  respectively. 


Several  options  in  the  PARC  code  are  available  to  modify  the  amount  of  artificial 
dissipation  added  to  the  flow  field.  One  option  scales  the  nonlinear  coefficients,  C,  in  strong 
viscous  regions  by  examining  the  cell  Reynolds  number 

n.  Re  e  I  u  1 

Oc  +  m)  +  $  +  d) 


The  last  option  provides  for  a  linear  combination  of  the  coefficients  as  suggested  by  Siclari 
(Ref.  7).  Thus,  the  artificial  dissipation  becomes  more  a  function  of  the  coordinate  directions. 
This  is  accomplished  by  defining  the  following  directional  coefficients: 


Apt*  -  (|U|  +  a  +  £  +1?) 

Apt,  =  (|V|  +  a  Vi*  +  Vy  +  vtj 
Aptf  *  (|W|  +  a  Vrf  +  fy  +  fi) 


Then,  for  a  given  constant,  a,  with  a  value  between  zero  and  one,  the  definition  of  the  nonlinear 
coefficient  C,  in  the  previous  equation,  is  replaced  by 


C  =  Apt* 


1  + 


Apt? 

Apt* 


J_ 

\  Apt  *  |  J 


when  evaluating  (-differenced  terms  and  similar  expressions  for  the  other  coordinate 
differences. 


3.3  PENTADIAGONAL  FORMULATION 

The  basic  Beam  and  Warming  algorithm  requires  the  solution  of  a  block  tridiagonal  matrix 
for  each  coordinate  line  in  each  coordinate  direction.  This  series  of  block  matrix  inversions 
is  computationally  expensive,  especially  for  3-D  problems  where  the  blocks  are  5-by-5 
submatrices.  When  the  fourth-order  artificial  viscosity  is  included  as  part  of  the  implicit 
operator,  the  solution  of  a  block  pentadiagonal  matrix  equation  is  required,  an  even  more 
expensive  process.  However,  it  is  very  desirable  to  incorporate  the  fourth-order  artificial 
dissipation  since  it  has  proven  to  aid  in  shock  capturing  and  in  rapid  convergence  to  a  steady- 
state  solution. 
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3.3.1  Diagonalized  Algorithm 


One  way  to  avoid  the  expense  of  solving  a  block  pentadiagonal  matrix  equation  is  to 
uncouple  (diagonalize)  the  equations.  This  can  be  done  by  noting  that  the  flux  Jacobian, 
Aj,  has  a  complete  set  of  real  eigenvectors  and  real  eigenvalues  so  that  if  Aj  is  decomposed, 

Aj  =  TjAjTj- 1  (No  summation  here  or  in  what  follows). 


where  Aj  is  the  diagonal  matrix  of  eigenvalues  of  Aj,  and  Tj  is  the  matrix  of  right  eigenvectors 
with  Tj- 1  its  inverse;  then. 


|l  +  At 


+  At 


a* 


w; 


"Ht 


I  +  At 


Thus,  the  diagonalized  form  of  the  factored  algorithm  is 
T,  II  +  At  d 


|l  +  At  A[j  N,2  |l  +  At  A2J  N23  I  +  At  A3|  Tj"'  AQ  =  RHS 


where 


N«  =  Tf1  T2 
N«  =  Tj1  T3 


Following  Pulliam,  the  explicit  form  of  the  eigenvalue  matrices  is 

(For  2-D) 
(For  3-D) 

where 


k||  =  yJiKiKl  (No  sum  over  j.) 


Aj  =  Diag  [Uj,Uj,Uj  +  a|K||,  Uj  -  a|Kj|] 
Aj  =  Diag  [Uj,Uj,Uj,Uj  +  a|K||,  Uj  -  a|Kf|] 
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The  eigenvectors  for  2-D  are 


1 


0 


a 


a 


Tj  = 


<fr2  +  a2 
,  T-l 


+ 


02  +  a2 
•y- 1 


J 


where 


(1  -<*2/a2) 

(7 

-  l)u/a2 

(7-  l)v/a2 

-(7-  l)/a2 

-(Kiu  -  Kj,v)/e 

kVg 

-kVc 

0 

/3^2  -  aUjj 

0  K{a 

-  (7-l)u 

0 

Ir 

1 

1 

'W' 

< 

0(y  - 1) 

+  aUjj 

-J8  KJia  +  (7-l)u 

1 

K-a  +  (7—  l)v 

18(7- 1) 

a  = 

©/  yjl  a 

0  = 

1/V"2  ea 

U|  = 

u/iKir 

Kj  = 

K|/|Ki| 
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In  3-D  the  eigenvectors  are 


Tj  = 


K{ 

i 

K)u 

Kjiv  +  K \b 


Ki 

KV 


kV  -  Kjg  kV  +  Kjie 

|K^/(7-l)  +  e(K^  -  Kiw)]  +  e(K{w  -  KJ3 


KJ3 

a 

a 

k^i  +  K^e 

a(u  +  K{a) 

a(u-Kia) 

kV  -  Kie 

a(v  +  K^a) 

o((v  -  KJja) 

KJjw 

a(w  +  Kjp) 

a(w  -  KJ#) 

|kJ*V<7-  1)  +  e(Kii  -  KJ,  v)J  +  aUj )  *(  -  aUj ) 


T-_  1 


Kj  (I  -  tfVa2)  -  (KJjv  -  K&)/q 

Ki(l  -  02/a2)  -  (ic|w  -  KWc 

KJ3  (1  -  02/a2)  -  <k|u  -  k{v)/g 

(3(<t>2  -  aUj) 

0OA2  +  aUj) 


Ki  z(7  -  l)u/a2 
Kj2  (7  -  1)  u/a2  -  KJ3/e 
Kj3  (7  -  1)  u/a2  -  icj/e 
~/3[(7  -  l)u  -  Kial 
-J3[(7  -  l)u  +  Kja] 
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K{  (7  -  l)v/a2  +  icVe 

KJ1  (7  -  l)w/a2  -  KVe 

-kUy 

Ki(7  -  l)v/a2 

ici(7  -  l)w/a2  -  kVg 

-k£(7 

icj  (7  -  l)v/a2  -  KW 

ici  (7  -  l)w/a2 

-Kj3<7 

-My  ~  i)v  -  icfc] 

-my  -  l)w  -  K^a] 

/3  (7 

-|3[(7  -  l)v  +  Kfe] 

-0[(7  -  l)w  +  KJ3a] 

P  (7 

Also  the  mixed  matrices,  N,  are 


M, 

m2 

-m3 

bM4 

-bM4 

m2 

Ml 

-m4 

-bM3 

bM3 

m3 

m4 

M, 

bM2 

-bM2 

-bM, 

bM3 

-bM2 

b^l  +  M,) 

b2(l  -  Mj) 

bM4 

l 

I 

bM2 

b^l  -  Mt) 

1)2(1  +  Mt) 

1 

0 

0 

0 

0 

Mi 

bM2 

-bM2 

Nil1- 

0 

-bM2 

bHl  +  MO 

b2(l  -  M,) 

0 

bM2 

b2(l  -  MO 

bHl  +  MO 

where 


-  l)/a2 
l)/a2 
l)/a2 
1) 

1) 


(For  3-D) 


(For  2-D) 
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b  - 

1A/T 

Mi  = 

EKf  Kf 

t 

M2  = 

K'l  Kj2  - 

M3  = 

K\K{  -  K3  K1 

M4  = 

KUj3  -  KiKi 

Note  that  the  N  matrices  are  strictly  functions  of  the  metrics.  The  steps  involved  in  advancing 
one  time-step  then  are 


T,AQ<«  =  RHS 

[1(1  +  IV[)  +  At5fA,]AQt5)  =  AQW 
Ni2AQW  =  AQ<5> 

[1(1  +  IV2)  +  Atfi^dAQ®  =  AQf4> 

NjjAQt2)  o  AQ<3> 

[1(1  +  IV3)  +  At5fA3]AQ«)  =  aQ<2> 

T3'1  AQ  =  A^1) 

where  IVj  is  the  implicit  artificial  viscosity  operator;  for  example, 

IVi  =  V{  [C^A*  -  e<4)A{VjA|)]J 

The  difference  equations  form  a  set  of  scalar  pentadiagonal  equations;  whereas  the  eigenvector 
operators  form  a  block  diagonal  vector  equation,  both  of  which  are  straightforward  to  solve. 
The  pentadiagonal  matrix  that  would  be  formed  from  the  first  difference  equation,  for 
instance,  has  the  form 
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hfja 

crja 

drja 

erja 

STja+l 

brja+i 

crja  + 1 

^rja  +  l 

0 

arja+2 

htja+2 

crja  +  2 

drja+2  erja  +  2 


0 


crj  drj  erj 

« 


brjb_i 

crjb — l 

drjb-i 

• 

erjb-i 

arjb  * 

brjb 

crjb 

<*rib 

where  here  the  subscript  notation  means,  for  example, 

aTja  =  ar(£ja,  y,  f) 

for  a  coordinate  line  of  constant  y,  f .  The  first  flow-field  grid  point  on  this  line  is  y, 
f)  and  the  last  is  (£jb,  y,  f)  where  y,  f)  and  (^b+i,  y,  f)  are  boundary  points.  The 

nonzero  elements  of  this  matrix  are 

arj  =  Cj-iJj-2 


where 


hr  T(2)  _i_  ,“<4>  ,  -<4> 

bfj  -  —  e  j-i  +  3e  j_|  +  e  j 


Jj-1  -  y  At\i-i 


crj  = 


-  (2)  (4)  -(2)  — (4) 

c  j_i  +  3c  j_j  +  3«  j  +  e  j 


Jj  +  1 


drj  =  - 


~(2)  ,  ,—(4)  -(4) 

e  j  +  3e  j  +  € j_i 


Jj+i  +  —  AtXj+i 


er,  = 


-(4)  « 
e  i  Jj+2 


e  j  -  «j  (Cj  +  Cj+i) 
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and  Xj  is  the  appropriate  eigenvalue  at  (£,  if,  f).  Note  that  if  the  boundary  points  are  to  be 
treated  implicitly,  then  the  above  matrix  must  have  two  rows  added  to  it.  If  they  are  to  be 
treated  explicitly,  as  in  the  PARC  code,  then  the  first  and  last  columns  need  to  be  deleted. 

3.3.2  Pentadiagonal  Matrix  Solver 

The  pentadiagonal  matrix  problem  posed  by  the  difference  operators  is  solved  by  a  variant 
of  Gaussian  elimination  (an  extended  Thomas  algorithm).  In  matrix  form  the  problem  is 

Aq  =  f 

where  A  is  a  pentadiagonal  matrix,  q  is  the  vector  of  unknowns,  and  f  is  a  vector  of  known 
values.  The  algorithm  is  easiest  to  follow  if  the  matrix  A  is  considered  to  be  decomposed 
into  a  product  of  lower  and  upper  triangular  matrices  (L  and  U,  respectively), 

A  =  LU 

where 


Ci  di  ei 

b2  C2  d2 

a3  t>3  Cj 


0 

ez 

d3 


0 

0 

e3 


A  = 


dj 

ei 

• 

• 

• 

Cj-2 

dj_2 

eJ-2 

bj-i 

Cj-1 

dJ-i 

aj 

bj 

Cl 
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Then  the  elements  of  these  matrices,  and  in  the  process,  the  unknown  vector  q,  are  found 
by  the  following  recursive  algorithm: 

1.  n,  =  cj 

Xj  =  dj/n, 

Yi  =  ej/ni 
gi  =  f]/ni 

2.  mj  —  b2 

U2  =  C2  —  m2Xi 
X2  =  (d2  -  m2Y|)/n2 
Y2  —  e2/n2 
g2  =  (f2  -  m 2g!)/n2 
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3.  For  j  =  3  to  J  -  2: 

h  =  aJ 

mj  =  bj  -  fjXj_2 

Tlj  =  Cj  -  OljXj-i  -  ?jYj_2 

Xj  =  (dj  -  mjYj.O/iij 

Yj  =  e/nj 

gj  =  (fj  -  nijgj-i  -  ^gj-2)/Hj 


4.  fj_]  =  aj_i 

mj-i  =  bj_]  -  tj _ iXj_ 3 

nJ- i  “  cj_i  -  mj_iXj_2  -  fj.jYj-3 

Xj-i  =  (dj_i  -  mj_[Y|_2)/nj_i 

gj-i  =  (fj-i  -  mj-igi-2  -  fj-igj-3VnJ-i 

5.  fj  =  aj 

mj  =  bj  -  ?jXj_2 

nj  =  Cj  -  mjXj_i  -  tjYj-2 

gj  =  (fj  -  mjgj_i  -  fjgj_2)/nj 

6.  qj  =  gj 

qj-1  =  gj-1  -  Xj_iqj 

7.  For  j  =  J-2  to  1: 

qj  =  gj  -  xjdj + 1  -  YjQj+2 

The  vector  g  is  the  unknown  vector  in  the  matrix  subproblem,  Lg  =  f.  Note  that  if  J  = 
4,  then  step  3  is  skipped;  if  J  =  3  then  steps  3  and  4  are  skipped  (an  unnecessary  Y2  will 
be  calculated  from  a  nonexistent  e2  in  this  case).  This  algorithm  is  highly  recursive,  which 
makes  its  efficient  calculation  through  vectorization  on  current  supercomputers  impractical. 
However,  by  solving  many  of  these  matrix  equations  simultaneously,  a  high  degree  of 
vectorization  can  be  obtained. 

3.4  PSUEDO-RUNGE-KUTTA  ALGORITHM 

An  alternate  flow  solver  has  been  incorporated  into  the  PARC  code  to  improve  prediction 
accuracy  for  time-dependent  flows.  The  alternate  solver  is  the  multistage  solver  commonly 
referred  to  as  the  Runge-Kutta  solver  developed  by  Jameson  (See  Ref.  7).  The  solver  calculates 
time-accurate  and  nontime-accurate  (i.e.  local  time-stepping)  solutions  using  a  three-,  four-, 
or  five-stage  scheme.  An  implicit  residual  smoothing  option  has  also  been  incorporated.  The 
multistage  solver  operates  with  the  same  metrics,  Jacobians,  boundary  conditions,  RHS,  and 
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artificial  dissipation  as  the  pentadiagonal  solver.  The  four-stage  time-stepping  scheme  has 
the  following  form  to  advance  the  solution  from  time-step  N  to  N  + 1 

Q(0)  =  Q(N) 

Q(l)  =  Q(0)  +  1/4  DT  RHS(O) 

Q(2)  =  Q(0)  +  1/3  DT  RHS(l) 

Q(3)  =  Q(0)  +  1/2  DT  RHS(2) 

Q(4)  =  Q(0)  +  DT  RHS(3) 

Q(N+  1)=  Q(4) 

The  implicit  residual  smoothing  routines  solves  the  following  implicit  equation  for  RHS*: 

(1  -  (1  -  e,  aj)(l  -  3?)  RHS*  =  RHS 

where  ef,  and  are  smoothing  parameters  set  by  the  user  and  d\,  3*,  and  d\  are  second 
difference  operators.  RHS(0)  is  then  replaced  by  RHS*.  The  implicit  residual  smoothing  is 
done  prior  to  the  multistage  iteration. 

3.5  VARIABLE  TIME  STEPS 

Since  the  PARC  code  is  set  up  to  solve  steady-state  problems,  using  the  unsteady 
formulation  of  the  Navier-Stokes  equations  only  as  a  means  to  construct  an  iterative  solution 
algorithm,  a  couple  of  different  time-step  variation  schemes  are  employed. 

3.5.1  Spatial  Varying  Time  Steps 

In  steady-state  calculations  using  a  constant  time  step,  the  time-step  size  is  determined 
by  stability  considerations.  For  many  problems  this  step  size  is  set  by  stability  problems  in 
a  relatively  small  part  of  the  flow  field  (e.g.,  dense  grid  regions  near  a  body);  the  step  size 
could  be  much  larger  if  this  region  were  excluded.  Thus,  allowing  each  point  to  possess  its 
own  optimal  time-step  size  should  reduce  the  total  number  of  iterations  to  reach  steady  state. 

3.5.1. 1  Courant  Number  Formulation 

This  approach  to  selecting  variable  time-step  sizes  is  based  on  the  idea  of  using  a  constant 
Courant  number  everywhere.  Thus,  at  each  grid  point  (£,  rj,  f). 

At  =  CFL/Max  (|Uj|  +  a|K}  |) 
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where  CFL  is  the  Courant  number.  For  viscous  flows,  it  has  been  necessary  to  add  a  viscous 
correction: 


At  =  CFL/Max 
1 


(|Uj|  +  a|Ki  |)  +  |K{  p 


3.5.1.2  Jacobian  Formulation 


An  alternate,  simpler  formulation  is  also  used  that  is  based  on  the  idea  that  in  the  vast 
majority  of  flows,  the  flow  properties  vary  over  less  than  an  order  of  magnitude  (often  only 
by  a  small  factor),  and  the  metrics  vary  over  many  orders  of  magnitude,  thus,  the  following 
approximation  to  the  Courant  number  formula: 


At  =  At0  /y}l  +  J 

3.5.2  Temporal  Varying  Time  Steps 

Often  a  time  step,  or  Courant  number,  which  gives  optimal  convergence  rates  over  most 
iterations,  causes  stability  problems  over  a  few  iterations;  thus,  a  means  for  automatic  temporal 
adjustment  of  the  time-step  size  is  desirable.  This  can  be  done  by  observing  that  implicit 
methods  get  into  unrecoverable  stability  trouble  when  one  of  the  conservation  variables  jumps 
to  a  much  too-high  or  too-low  value  over  one  iteration.  By  limiting  the  maximum  relative 
change  in  these  variables,  stability  can  be  maintained.  The  following  is  used  in  the  PARC  code: 


At  =  Min 

AtmiU,  MPC  /  Max  [ 

Ae? 

)] 

/  t,  i.f.  1 

,  e 

II 

where  Age  is  the  component  of  RHS  corresponding  to  the  continuity  equation  using  unit 
time  step  (or  Courant  number);  MPC  is  a  specified  maximum  relative  change  allowed;  At«aT 
is  the  maximum  At  (or  CFL)  to  be  used  in  any  case;  and  At  should  be  interpreted  as  CFL 
if  spatial  time-step  variation  is  also  used.  In  addition,  a  similar  formulation  involving  pressure 
is  used  so  that  the  time-step  size  is  limited  by  either  a  maximum  estimated  density  or  pressure 
change. 

3.6  BOUNDARY  CONDITIONS 

There  are  a  variety  of  boundary  conditions  available  for  use  in  the  PARC  code  that  are 
selectable  through  user  inputs.  These  can  be  conveniently  classified  as  computational 
boundaries,  symmetry  boundaries,  solid  boundaries,  block  boundaries,  and  singular 
boundaries. 
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3.6.1  Computational  Boundaries 

This  type  of  boundary  does  not  exist  in  the  actual  flow;  it  is  introduced  purely  for 
convenience,  usually  because  the  flow  domain  must  be  truncated  to  make  it  computationally 
manageable.  These  boundaries  are  characterized  as  presenting  no  obstacle  to  the  flow.  The 
PARC  code  treats  these  boundaries  through  simplified  characteristic  equations.  Two  different, 
but  related,  approaches  are  used.  One  is  optimized  for  internal  flows,  and  the  other  for  external 
flows.  In  both  cases  the  appropriate  treatment  of  a  boundary  point  depends  on  whether  the 
component  of  velocity  normal  to  the  boundary  surface  passes  into  or  out  of  the  flow  and 
on  whether  the  corresponding  Mach  number  is  supersonic  or  subsonic. 

3.6.1.1  Internal  Flows 

For  the  case  of  subsonic  inflow,  the  flow  is  assumed  to  be  normal  to  the  boundary,  and 
the  total  temperature  and  total  pressure  (Tq  and  Pc)  are  prescribed.  The  following  equations 
are  solved: 


'r  -r  .  7_  1  2 

T0  =  T  +  uN 

P  =  P0(T/T0)t/t-i 


.  c  =  uN  -  P/ga 

where  if,  for  example,  the  boundary  is  a  surface  of  constant  then 

uN  =  Uj  Kj 

and  C  is  a  characteristic-like  variable  calculated  from  the  flow-field  point  just  off  the  boundary. 
This  set  of  equations  is  solved  for  T,  P,  and  uN  (ga  is  held  constant)  by  Newton  iteration 
on  the  equation, 


Then,  having  P,  the  remaining  variables,  T  and  uN,  are  found  by  back  substitution  into  the 
first  set  of  equations.  The  velocity  components  are  found  from 


uj  =  uN  Kj 
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If  the  flow  is  exiting  through  the  boundary  at  subsonic  velocities,  then  the  static  pressure 
is  prescribed,  and  the  density  and  velocity  are  extrapolated  from  upstream.  The  conservation 
variables  are  updated  using  these  values.  The  same  approach  is  used  for  supersonic  outflow, 
except  the  static  pressure  is  also  extrapolated. 


Frequently,  it  is  desirable  to  prescribe  a  certain  known  mass  flux  on  a  computational 
boundary.  This  boundary  condition  is  implemented  in  the  PARC  code  through  an  algorithm 
that  attempts  to  impose  a  specified  mass  flux  through  a  surface  by  adjusting  the  pressure 
according  to 


pn+l  — 


1  +  a  (ft,  -  lVln)  /  |l$Ir| 


P" 


where  P  represents  the  static  pressure  for  outflow  and  the  total  pressure  for  inflow.  The 
specified  mass  flux  is  given  by  Mr,  which  is  positive  for  inflow  and  negative  for  outflow; 
Mn  is  the  current  mass  flux  through  the  surface  and  a  is  a  relaxation  parameter.  Once  this 
pressure  is  adjusted,  the  appropriate  inflow  or  outflow  condition,  as  described  previously, 
is  applied.  Note  that  this  algorithm  is  ad  hoc,  and  it  makes  no  attempt  to  be  time  accurate. 


3.6.1. 2  External  Flows 


This  algorithm  assumes  that  the  computational  boundaries  are  in  the  far  Held  of  the  flow. 
Free-stream  values  of  Mach  number,  angle  of  attack,  and  angle  of  sideslip  are  used  to  determine 
the  flow  conditions  on  this  boundary  based  on  locally  one-dimensional  Riemann  invariants 
for  subsonic  flow  and  extrapolation  of  all  variables  for  supersonic  flow.  The  Riemann 
invariants  are  defined  as 


Ri  =  uN  -  a/(7-l)  and  R2  =  uN  +  a/(y-l) 


For  outflow,  R!  is  fixed  at  free-stream  value,  and  R2,  u*  (tangential  velocity)  and  S  (entropy) 
are  taken  from  the  interior  solution.  For  inflow,  R|,  ut,  and  S  are  fixed  at  free-stream  values, 
and  R2  is  extrapolated  from  the  interior  solution. 

3.6.2  Symmetry  Boundaries 

This  boundary  condition  is  determined  by  extrapolation  of  density,  pressure,  and  tangent 

velocity  from  points  adjacent  to  the  boundary.  Velocity  components  are  obtained  from 
♦ 

uj  =  uj+  -  u,+ Kf  Kj  (no  sum  over  i) 
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where  the  “  +  ”  superscript  indicates  evaluation  at  the  point  just  off  of  the  boundary  surface. 
A  special  type  of  symmetry  boundary  arises  in  axisymmetric  flows.  The  axis  of  symmetry 
is  treated  the  same  as  for  the  symmetry  boundary  condition  except  that  since  the  tangential 
direction  is  known  (positive  X-direction),  the  velocity  components  are 

u  =  u+ 

v  =  0 


3.6.3  Solid  Boundaries 

All  solid  boundaries  have  zero-normal  velocity  components.  This  fact  is  taken  advantage 
of  for  slip-surface  boundaries  by  using  the  same  algorithm  as  for  symmetry  surfaces.  For 
no-slip  surfaces,  all  velocity  components  are  zero,  and  the  pressure  is  always  taken  to  be 
that  at  the  first  point  off  of  the  boundary  (first-order  representation  of  zero  normal  gradient 
of  pressure).  There  are  two  subclasses.  The  adiabatic  wall  boundary  condition  treats  the 
temperature  in  the  same  way  as  the  pressure  (first-order  approximation  to  zero-normal 
temperature  gradient).  For  the  case  of  isothermal  walls,  the  temperature  is  prescribed. 

3.6.4  Block  Boundaries 

One  of  the  major  features  of  the  PARC  code  is  its  ability  to  treat  complex  flows  by  breaking 
it  up  into  overlapping  blocks  (See  Section  4.3).  This  is  primarily  a  programming  problem 
except  for  the  question  of  how  to  treat  block  interfaces.  Contiguous  block  interfaces,  which 
require  exact  matching  of  overlapping  grid  points,  are  simply  treated  by  using  straight  injection 
between  the  blocks.  Noncontiguous  block  interfaces,  for  which  grid  points  do  not  match 
between  blocks,  are  more  difficult  to  handle.  Strictly  speaking,  the  best  treatment  is  through 
use  of  conservative  interpolation.  The  PARC  code  uses  the  simpler  bilinear  and  trilinear 
interpolation  technique  between  blocks.  This  is  not  as  accurate,  but  results  in  a  very  general 
treatment  of  these  boundaries. 

3.6.5  Singular  Boundaries 

These  boundaries  arise  when  a  computational  coordinate  line  represents  a  physical  point 
(2-D)  or  a  computational  coordinate  surface  represents  a  physical  line  (3-D).  In  the  2-D  case, 
averages  of  the  flow  values  one  grid  line  off  of  the  boundary  line  are  imposed  on  each  grid 
point  of  the  collapsed  boundary  line.  The  3-D  case  is  treated  the  same  as  2-D  averaging, 
except  the  averaging  is  performed  as  a  set  of  independent  2-D  averages. 
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3.7  METRIC  EVALUATION 

Because  it  is  very  desirable  to  maintain  free  stream  (that  is,  to  have  the  difference  analog 
of  the  inviscid  flux  divergence  for  a  constant  property  flow  to  be  zero),  it  is  not  desirable 
to  evaluate  the  metrics  from  simple  difference  analogs.  Instead,  if  the  analogy  between  the 
differenced  form  of  the  strong  conservation  law  equations  and  the  finite  volume  form  of 
these  equations  is  exploited,  proper  behavior  of  the  metric  differences  can  be  obtained.  For 
example,  the  metric  term  {X/J  plays  the  same  role  in  the  difference  equations  as  the  area 
of  the  {-constant  surface  projected  onto  the  Y-Z  plane.  This  projected  area  is  just  the  X- 
component  of  one-half  the  cross  product  of  the  distance  vectors  between  the  diagonals  of 
the  cell  surface. 

3-D 

=  y  [D(0, 1 , 1 , Y)D(0,  —  1,1  ,Z)  -  D(0,  —  1,1,Y)D(0,1,1,Z)]J 

{y  =  y  [0(0, 1 , 1  ,Z)D(0, -  1 , 1  ,X)  -  D(0,-1,1,Z)D(0,1,1,X)]J 

k  =  y  [D(0,1,1,X)D(0,-1,1,Y)  -  D(0,  —  1,1  ,X)D(0, 1 , 1 , Y)]  J 

7,  =  y  [D(1,0,1,Y)D(1,0,-1,Z)  -  D(1,0,  —  l,Y)D(l,0,l,Z)jJ 

7y  =  y  [D(1,0,1,Z)D(1,0,-1,X)  -  D(1,0,-1,Z)D(1,0,1,X)]J 

Vz  =  y  [D(1,0,1,X)D(1,0,  —  1,Y)  -  D(1,0,-  1,X)D(1,0,1,Y)]J 

fx  =  y  [D(1,1,0,Y)D(  —  1,1,0,Z)  -  D(- 1,1,0, Y)D(1,1,0,Z)]J 

fy  =  y  [D(l, 1,0, Z)D(- 1,1,0, X)  -  D(- 1,1,0, Z)D(1, 1,0, X)]J 

fz  =  y  [D(1,1,0,X)D(- 1,1,0, Y)  -  D(- 1,1,0, X)D(1,1,0,Y)]J 

where  the  difference  operator  is  defined  as 

D(j,M,X)  =  y  [X({  +  j,  i,  +  k,  f+l)  -  X({— j,  ,,-k,  f-f)] 
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For  example,  the  ijy  metric  has  the  formulation 


Ztt+l*,f  +  l>  -  Ztt-I.i, 


H 


x(£+i,*,r-i)  -  x(f-i,,,f+i) 


-  Z(t+I.ir.f-1)  -  Ztt-I,n,r+1)  Xtt+I.ij.f+I)  -  X(£-i,i,,r- 


3 


"11 


2-D 


ix  =  y  [Y(£,1J  +  I)  -  Y«,„-1)]J 
fy  =  -  yIXtt.u  +  1)  -  X(£,u-l)]J 
Ux  =  -  ylYtt+M)  -  Ytt-l^U 
fly  =  y  [X«+l,fl)  -  X(£  —  1,jj))J 


Axisymmetric 


ix  =  +  Y(£tl)-l)J  [Y(^  +  l)  -  Y({,tj—  1)]J 

4 

«y  =  ~  [Y({,ir+ 1)  +  Y(f,ij  - 1)1  [Xtf.,,  +  1)  -  X(f>Tr-l)]J 

flx  =  -  -7  [*«+**>  +  Y(i-l.u)]  [Y(f+M)  -  Y{f  —  l,ij)]J 
4 

fly  =  ^-[Y«+l,t,)  +  Ytf-1,,)]  PC«+1,U)  -  X<*-l.i)]J 

4 

Expressions  for  the  Jacobians  have  not  been  given  since  their  exact  value  is  not  important 
for  inviscid  steady-state  flow  calculations  and  since  their  current  form  is  very  complicated. 
Continuing  the  Unite  volume  analog,  the  inverse  of  the  Jacobian  represents  the  volume  of 
a  computational  celt;  this  approach  has  been  taken  in  evaluating  the  Jacobians  in  the  PARC 
code. 
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4.0  USAGE  CONCEPTS 
4.1  NONDIMENSIONALIZATION 

j 

Since  the  PARC  code  is  based  on  a  nondimensionalized  set  of  equations,  many  of  the 
inputs  to  and  outputs  from  the  code  are  also  nondimensional.  Although  there  is  some  flexibility 
in  the  choice  of  the  reference  parameters  for  nondimensionalizing  the  flow  variables,  the 
following  system  is  recommended: 

1.  Select  reference  pressure  (Pref),  temperature  (Tref),  and  density  (e«f)i  such  that 

a.  they  are  consistent  with  the  ideal  gas  law  (necessary);  and 

b.  they  are  realized  somewhere  in  the  flow  (strongly  recommended;  ideally  they 
should  represent  the  bulk  values  for  the  flow). 

2.  Select  a  reference  length  (Xref)  that  is  typical  for  the  length  dimensions  of  the 
flow  Held.  For  complex  flows,  the  simplest  choice  is  the  unit  length  used  in  the 
specification  of  the  geometry  (e.g.,  inches,  feet,  or  meters). 

3.  Calculate  the  reference  velocity  (the  reference  speed  of  sound,  aref)  from  the  ideal 
gas  relation  (a2ref  =  7  Rg  Tref).  Also,  determine  the  reference  viscosity,  ratio  of . 
specific  heats,  and  Prandtl  number  0,^,  7,  Pr)  based  on  the  reference 
thermodynamic  properties. 

4.  Form  nondimensional  input  parameters  and  variables  (The  subscript  d  indicates 
a  dimensional  variable.): 


Lengths 

X  =  X,/Xref 

Densities 

e-  Qd/  Pref 

Velocities 

U  =  Ud/aref 

Temperatures 

T  =  Td/Tref 

Pressures 

p  =  Pd/7  P ref 

Total  energies 

E  =  Ed/7  Pref 

Reynolds  number 

Re  -  g ref  aref  X^/^ 
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4.2  GRIDS 

The  PARC  code  requires  an  ordered  set  of  nodal  points  that  represent  the  geometric 
boundaries  of  a  flow  problem  as  well  as  an  appropriate  distribution  of  flow-field  points  between 
boundaries.  As  a  minimum,  the  grid  must  be  constructed  and  ordered  in  such  a  way  that 
the  indices  can  be  formally  considered  as  coordinates  of  a  curvilinear  coordinate  system  with 
nonvanishing  Jacobian.  (Currently,  the  Jacobian  of  the  coordinate  transformation  is  required 
to  be  strictly  positive;  thus,  the  handedness  of  the  physical  and  computational  coordinate 
systems  must  be  the  same).  The  indices  of  the  grid  are  taken  to  be  J,  K,  and  L  Oust  J  and 
K  in  2-D)  so  that  the  coordinates  of  the  J,  K,  L  grid  point  are  [X(J,  K,  L),  Y(J,  K,  L),  Z(J, 
K,  L)].  Each  index  is  required  to  be  able  to  vary  over  its  entire  range  (e.g.,  1  ^  J  <;  JMAX) 
even  if  some  of  the  points  so  specified  are  not  part  of  the  flow  field.  Care  must  be  taken 
that  the  grid  coordinates  are  properly  nondimensionalized;  that  is,  the  dimensional  length 
that  corresponds  to  a  unit  length  in  the  grid  must  be  the  same  dimensional  length  as  was 
used  in  calculating  the  Reynolds  number  (for  inviscid  flow  this  is  a  moot  point,  of  course). 
Boundary  surfaces  (physical  and  computational)  must  be  composed  of  a  patch  work  of  J-, 
K-,  and/or  L-constant  surfaces  with  their  edges  composed  of  J-,  K-,  and/or  L-varying  lines. 
However,  within  this  restriction,  boundary  surfaces  can  be  of  arbitrary  complexity  and  located 
anywhere  within  the  grid  as  long  as  at  least  three  grid  points  separate  surfaces  forming  a 
flow  passage.  (This  must  always  be  the  case;  otherwise  incorrect  solutions  will  occur.)  Finally, 
best  results  in  terms  of  accuracy  and  convergence  rates  will  be  obtained  if  the  grid  is  constructed 
so  that  boundary  and  flow  gradients  are  well  resolved,  and  the  grid  varies  smoothly  with 
minimal  skewness.  Figure  1  displays  these  gridding  concepts  for  a  simple  2-D  configuration. 

4.3  BLOCKS 

Domain  decomposition  or  grid  blocking  was  incorporated  into  the  PARC  code  primarily 
to  circumvent  high-speed  computer  memory  limitations.  Use  of  the  concept  of  domain 
decomposition  also  simplifies  grid  generation  about  complex  geometries  and  admits  grid- 
embedding  techniques.  Grid  embedding  provides  an  efficient  means  for  local  increases  in 
grid  resolution.  Communication  between  grid  blocks  is  accomplished  through  the  overlapping 
of  grids.  In  the  simplest  version  of  domain  decomposition,  multiple  “small”  grid  blocks  are 
generated  form  a  single  “large”  grid.  The  smaller  grid  blocks  are  exact  subsets  of  the  original 
grid,  and  each  will  fit  independently  into  available  high-speed  memory.  The  transfer  of  solution 
information  between  grid  blocks  is  very  straight  forward  in  this  situation,  since  the  smaller 
grid  blocks  can  be  created  so  that  a  two-grid  point,  or  one-grid  cell,  overlap  exist  between 
blocks.  The  flow  variables  located  at  the  grid  points  next  to  an  overlapped  boundary  are 
used  as  the  boundary-condition  values  for  the  adjoining  grid  block.  Thus,  the  solution  process 
consists  of  reading  grid-block  information  into  high-speed  memory,  updating  all  boundary 
conditions,  performing  one  flow  solution  iteration,  writing  boundary-condition  values  for 
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adjoining  blocks  to  low-speed  memory,  writing  out  the  updated  flow  solution,  and  then 
repeating  the  process  for  another  grid  block. 

The  PARC  code  also  permits  block  interfaces  that  do  not  possess  an  exact  match  of  grid 
points  between  adjoining  grid  blocks.  The  only  restriction  imposed  is  that  these  adjoining 
grid  blocks  must  overlap  by  a  certain  minimum  amount.  For  this  type  of  block-interface, 
interpolation  stencils  are  created  prior  to  the  start  of  the  flow-field  iterations.  These  stencils 
prescribe  how  flow-solution  values  are  to  be  interpolated  from  the  interior  grid  points  of 
one  grid  block  to  the  boundary  grid  points  of  an  adjoining  grid  block.  The  intended  use 
of  this  capability  is  to  permit  an  ordered  local  increase  (or  decrease)  in  grid  densities.  Thus, 
the  grid  in  the  overlap  region  of  one  block  can  be  formed  form  the  grid  points  of  the  adjoining 
grid  blocks  by  adding  n  grid  points  between  every  existing  grid  point  (or  by  removing  n 
consecutive  grid  points  from  each  group  of  n+ 1  points).  This  interface  structure  simplifies 
the  interpolation  stencils  and  therefore  keeps  interpolation  errors  to  a  minimum.  This  can 
be  important  since  the  PARC  code  makes  no  attempt  to  ensure  that  the  transfer  of  information 
between  grid  blocks  is  conservative. 

4.3.1  Blocking  Algorithm 

Execution  of  the  PARC  code  can  be  thought  of  as  consisting  of  three  phases,  initial  setup, 
flow-field  solution  iterations,  and  printout  and  termination.  During  the  initial  setup  phase, 
the  user-supplied  restart  file  (See  Section  5.3)  and  NAMELIST  parameter  file  (See  Section 
5.4)  are  read,  and  the  necessary  initialization  is  performed.  The  grid,  metrics,  Jacobians, 
boundary-condition  information,  and  block-dependent  parameters  are  written  out  to  different 
direct-access  working  files.  Each  grid  block  corresponds  to  one  record  of  the  five  working 
files.  The  grid-block  identification  numbers  and  the  direct-access  file  record  numbers  are 
assigned  according  to  the  order  in  which  the  grid-block  information  appears  in  the  NAMELIST 
input.  Then,  for  each  block,  interpolation  stencils  are  created  by  a  search  procedure  that 
identifies  the  grid  cells  that  encompass  the  boundary  points  of  adjoining  grid  blocks.  After 
the  cells  are  identified,  interpolation  weighting  factors  are  written  to  a  direct-access  file  along 
with  the  encompassing  cell  indices.  Each  block  interface  is  assigned  a  unique  number  by  the 
user  (See  discussion  of  INTERJ,  INTERS,  and  INTERL  in  Section  4.8).  This  interface 
identification  number  corresponds  to  a  single  record  of  this  file.  Since  a  block  interface  joins 
two  blocks,  there  are  two  direct-access  files  used  for  interpolation  stencil  storage.  One  file 
stores  one  side  of  the  interface,  and  the  other  file  stores  the  other  side  of  the  interface.  During 
the  course  of  the  iterative  flow-field  solution  process,  the  interpolation  stencils  are  read  and 
used  to  calculate  block-interface  boundary  values.  These  interface  flow-field  values  are  stored 
in  two  direct-access  files  in  the  same  manner  as  the  interpolation  stencil  information. 
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The  flow-field  solution  proceeds  by  iterating  once  on  one  block  at  a  time.  The  block  order 
may  be  specified  by  the  user  as  follows:  Each  grid  block  on  the  restart  file  is  assigned  an 
integer  identifier  based  on  the  order  in  which  it  is  read.  That  is,  the  integer  1  is  assigned 
to  the  first  block,  and  so  forth  to  the  last  block,  which  is  assigned  the  integer  value  of  NBLOCK 
(the  user-specified  total  number  of  grid  blocks).  Blocks  are  processed  according  to  the  integer 
sequence  specified  by  the  elements  of  IBORD,  an  integer  vector  with  MBORD  elements 
contained  in  NAMELIST  INPUTS  (See  Section  5.4).  This  sequence  may  or  may  not  include 
all  the  blocks,  and  blocks  can  be  repeated  as  desired.  For  example,  if  IBORD  =  3,  1,  2, 
1  (MBORD  =  4),  then  the  third  block  read  will  be  processed  first,  the  first  block  read  will 
be  processed  second,  the  second  block  read  will  be  processed  next,  and  the  first  block  will 
be  treated  again  before  the  entire  sequence  is  repeated.  Note  that  use  of  this  technique  causes 
the  meaning  of  the  parameter  NMAX  to  change.  Instead  of  specifying  the  number  of  flow- 
field  solution  iterations,  it  determines  the  number  of  times  the  block  sequence  is  repeated. 

For  each  block,  at  the  start  of  each  iteration,  the  grid,  metrics,  Jacobians,  boundary- 
condition  information,  block-dependent  parameters,  and  flow-field  variables  are  read  from 
external  storage.  The  block-interface  values  are  also  read  and  used  during  the  boundary  update 
process.  The  flow-field  is  updated  and  then  the  interpolation  stencil  is  used  to  calculate  the 
boundary  values  for  adjoining  grid  blocks.  The  boundary  flow-field  properties  of  adjoining 
blocks  are  then  written  out  to  external  storage.  After  the  updated  flow-field  variables  are 
written  back  to  external  storage,  the  process  starts  over  with  another  grid  block.  Once  the 
iteration  process  has  been  completed,  user-selected  portions  of  each  grid-block  flow-field 
are  printed  (See  Section  4.9),  and  a  new  restart  file  is  written. 

In  essence,  the  original  (unblocked)  PARC  code  has  been  extended  to  handle  multiple 
blocks  simply  by  enclosing  appropriate  portions  of  the  program  in  FORTRAN  DO  loops, 
adding  additional  routines  to  perform  input  and  output  of  the  block  data,  and  incorporating 
block-interface  boundary  conditions.  The  basic  solution  algorithm  was  not  modified  except 
for  the  method  of  data  array  allocation.  One  of  the  most  awkward  aspects  of  an  out-of- 
memory  flow  solver  is  the  efficient  allocation  of  high-speed  memory.  Since  grid-block  aspect 
ratios  may  vary  drastically,  it  is  difficult  (in  FORTRAN)  to  dimension  working  arrays  so 
that  each  grid  block  can  be  accommodated  efficiently.  The  best  technique  using  standard 
FORTRAN  77  is  to  pass  the  arrays  as  subroutine  parameters  and  dynamically  dimension 
them.  Unfortunately,  this  method  makes  multileveled  subroutine  calling  very  complex  and 
difficult  to  maintain.  Similarly,  working  strictly  with  one-dimensional  arrays,  as  has  often 
been  done  in  other  programs,  leads  to  an  extremely  difficult  program  maintenance  problem. 
The  approach  that  has  been  adopted,  reluctantly,  is  to  use  nonstandard  FORTRAN.  CRAY 
FORTRAN  permits  the  use  of  pointers  for  the  dynamic  allocation  of  arrays.  The  pointers 
to  array  addresses  are  determined  during  the  initial  setup  phase  and  are  included  as  part  of 
the  parameter  information  for  each  block. 
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Time  spent  reading  data  to  and  from  external  disk  storage  can  exceed  the  time  spent 
calculating  the  flow  field.  To  reduce  the  amount  of  input/output  time,  the  flow-field  variables 
are  reduced  to  half-precision  using  the  CRAY  utility  PACK21  prior  to  writing  to  external 
storage  and,  then,  expanded  back  to  full  precision  immediately  after  reading  from  external 
storage  using  EXPAND21.  These  utilities  reduce  the  input/output  time  by  approximately 
one-half  and  require  negligible  computer  time  to  operate.  The  penalty  for  their  use  is  that 
the  precision  of  the  flow-field  variables  are  also  reduced  by  half.  The  utilities  can  be  removed 
from  the  PARC  code  with  very  little  effort  (See  Appendix  B).  Another  way  to  reduce 
input/output  time,  at  the  expense  of  increased  CPU  time,  is  to  not  store  the  metrics  for  each 
block.  This  option  can  be  selected  by  setting  the  input  parameter  LMODE  equal  to  two, 
in  which  case  the  metrics  are  recalculated  at  the  beginning  of  each  iteration  on  every  block. 
The  default  option  (LMODE  =  1)  directs  that  the  metrics  be  calculated  just  once,  written 
to  a  file,  and  then  read  when  needed.  Which  option  saves  the  most  total  computer  time  is 
very  dependent  on  the  problem  and  computer  resources. 

4.3.2  Contiguous  Block  Interfaces 

The  following  information  is  provided  to  explain  how  to  generate  block-interface  grids. 
Section  4.8  explains  the  syntax  of  creating  NAMELIST  boundary  conditions,  including  block 
interfaces.  Contiguous  block  interfaces  require  an  exact  match  between  overlapping  grid  points 
of  adjoining  grid  blocks  and  a  two-grid-point  overlap.  The  logic  used  in  the  PARC  code 
requires  that  computational  coordinates  vary  in  the  same  fashion  in  the  two  adjoining  grid 
blocks  (i.e.,  computational  coordinates  must  be  increasing  in  the  same  physical  direction 
in  each  grid  blocks).This  is  always  the  case  if  the  two  grid  blocks  originated  from  the  same 
large  grid-by-grid  decomposition.  A  simple  one-dimensional  example  illustrates  these  grid- 
overlap  requirements: 

original  global  grid  . 

subgrid  block  No.  1 
subgrid  block  No.  2 

contiguous  block 
interface  overlap 


4.3.3  Noncontiguous  Block  Interfaces 

Noncontiguous  block  interfaces  require  the  use  of  linear  interpolation.  Therefore,  adjoining 
grid  blocks  must  overlap  by  at  least  two  grid  points.  The  main  concern  is  to  make  sure  that 
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interpolation  stencils  use  only  interior  solution  values  to  update  boundary  points.  Otherwise 
solution  convergence  rates  will  be  greatly  reduced  or  nonexistent.  Two  one-dimensional 
examples  are  shown  in  the  following  that  illustrate  a  correct  noncontiguous  interface  and 
then  an  incorrect  interface. 


grid  block  No.  1  • — -• — • — • — • — ■ 

grid  block  No.  2  • — . — • — * — > — . 

In  the  above  example,  both  blocks  one  and  two  are  sufficiently  overlapped  to  allow  correct 
interpolation  of  boundary  points. 

grid  block  No.  1  • - • - • - • - • 

grid  block  No.  2  . . 

In  this  case,  block  one  is  sufficiently  overlapped  onto  grid-block  two,  but  block  two  is  not 
sufficiently  overlapped  onto  block  one.  It  is  worth  noting  that  the  PARC  code  will  run  this 
case  without  flagging  the  incorrectness  of  the  grid  overlap. 

The  case  of  ordered  decrease  in  grid  resolution  may  appear  at  first  to  be  an  incorrect 
overlap  for  a  noncontiguous  interface,  but  it  is  actually  correct  as  illustrated  in  the  following 
one-dimensional  example: 


original  global  grid 
subgrid  block  No.  1 

subgrid  block  No.  2  . — • — . — 

contiguous  block 
interface  overlap 


Even  though  the  block  one  interface  boundary  point  may  require  the  block  two  boundary 
point  as  part  of  its  interpolation  stencil,  the  weighting  factor  for  the  interpolation  will  be 
zero  (i.e.,  the  interpolation  reduces  to  an  injection  case).  The  equivalent  2-  and  3-D  examples 
would  require  interpolation  for  some  of  the  points,  but,  again,  the  weighting  factors  for  the 
boundary  points  would  be  zero. 
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Only  two  warning  messages  are  printed  concerning  the  correctness  of  block-interface 
overlaps.  When  an  interpolation  actually  becomes  an  extrapolation  over  a  distance  of  more 
than  one  grid  cell,  an  error  message  will  indicate  that  the  grid  point  is  DEFAULTED.  This 
means  that  the  flow-field  values  at  that  point  will  not  be  changed  from  their  original  values 
(i.e.,  interpolation  will  not  be  performed).  The  second  warning  message  will  indicate  that 
a  point  will  be  extrapolated.  This  is  a  warning  that  the  blocks  are  not  properly  overlapped, 
so  that  the  flow-field  values  will  be  updated  using  extrapolation.  Should  either  warning  message 
appear,  the  grid  blocks  in  question  should  be  examined  to  determine  the  cause  of  the  improper 
grid-block  overlap.  Some  cases  have  occurred  where  the  grid  blocks  were  in  fact  overlapping, 
but  the  warning  messages  indicated  the  opposite.  This  contradiction  has  always  been  caused 
by  the  interpolation  search  routine  failing  as  a  result  of  extreme  grid  skewness,  in  which  case 
the  grid(s)  need  adjustment. 

4.4  INITIAL  CONDITIONS 

The  PARC  code  is  designed  so  that  every  application  of  the  code  is  treated  as  if  a  partially 
converged  flow  field  were  available  for  input;  that  is,  execution  of  this  code  always  requires 
a  restart  file.  The  restart  file,  which  is  described  in  Section  5.3,  must  be  supplied  by  the  user 
on  the  initial  run.  This  means  that  the  user  must  generate  his  own  grids  and  initial  conditions 
for  the  flow-field  to  be  simulated.  Although  the  PARC  code  has  a  demonstrated  capability 
to  proceed  trouble-free  from  very  arbitrary  initial  conditions,  there  are  some  useful  general 
guidelines  that  can  avoid  certain  convergence  problems. 

1 .  If  the  initial  conditions  are  known  to  be  far  from  the  expected  steady-state  conditions, 
it  helps  to  start  with  the  second-order  artificial  viscosity  coefficient  (DIS2)  set  at 
its  maximum  value  (0.25). 

2.  Avoid  starting  with  very  strong  gradients  (e.g.  orders -of-magnitude  differences  within 
a  few  grid  points)  in  any  of  the  thermodynamic  variables. 

3.  It  is  generally  better  to  evacuate  a  region  than  to  fill  it.  That  is,  specify  pressures 
that  are  high  compared  to  some  of  the  boundary  pressures  rather  than  ones  that 
are  low  compared  to  some  of  the  boundary  pressures. 

4.  Avoid  trying  to  converge  large  regions  of  low  Mach  number  flow  and  high  Mach 
number  flow  simultaneously. 

5.  Attempt  to  generate  a  good  estimate  of  the  expected  steady-state  conditions,  but 
don’t  try  too  hard.  In  general,  only  a  factor-of-two  improvement  in  the  overall 
convergence  rate  is  observed  between  poor  and  very  good  initial  conditions. 
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4.5  FLOW  SOLVERS 

The  PARC  code  has  been  developed  in  such  a  way  that,  although  many  different  types 
of  flows  can  be  treated,  only  two  versions  are  required.  These  versions  are  based  on  the 
dimensionality  of  the  flow  problem.  PARC3D  is  designed  for  3-D  flows,  and  PARC2D  is 
designed  for  2-D  and  ajdsymmetric  problems.  The  axisymmetric  option  of  PARC2D  is  selected 
by  setting  the  input  parameter  IAXISY  to  the  appropriate  value.  A  value  of  zero  for  this 
parameter  selects  the  2-D  form  of  the  Navier-Stokes  equations;  the  axisymmetric  form  is 
selected  by  a  value  of  one  (the  default).  When  interpreting  the  results  from  the  2-D  version 
of  the  PARC  code,  it  is  important  to  keep  in  mind  that  they  represent  a  3-D  solution  with 
a  special  kind  of  symmetry.  For  example,  the  calculated  2-D  mass  flux  is  per  unit  depth  (based 
on  reference  length  used  to  nondimensionalize  the  grid),  and  the  calculated  axisymmetric 
mass  flux  is  per  radian. 

Since  the  PARC  code  thermodynamics  are  based  on  a  nondimensionalized  perfect-gas 
formulation,  the  only  input  required  to  determine  the  thermodynamic  state  of  the  flow  is 
the  ratio  of  specific  heats  (gamma,  default  value  of  1.4).  For  flows  that  are  not  calorically 
perfect,  an  “effective”  gamma  must  be  used.  Other  thermodynamic  properties  of  the  flow 
(e.g.,  transport  coefficients)  are  covered  in  the  viscous  flow  discussion  (See  Section  4.5.2). 

4.5.1  lnvisdd  Flow 

The  PARC  code  may  be  used  to  simulate  either  viscous  or  in  viscid  flows.  Selection  of 
the  inviscid  option  is  made  through  the  input  parameter  INVISC,  an  integer  vector  with  either 
two  (2-D)  or  three  (3-D)  elements.  Each  element  is  paired  with  a  grid  index  as  follows:  1  —  J, 
2 — K,  3 — L  [e.g.,  JNVISC(2)  contains  information  relating  to  the  K-index].  Setting  all  of 
the  elements  of  INVISC  to  zero  causes  the  PARC  code  to  solve  the  inviscid  Euler  equations. 
Several  things  need  to  be  kept  in  mind  when  using  the  PARC  code  to  simulate  inviscid  flows. 
One  is  that  although  the  grid  density  and  stretching  requirements  of  viscous  flow  simulation 
are  greatly  relaxed  for  inviscid  flow  simulations,  the  grid  spacing  near  boundaries  needs  to 
be  small  enough  so  that  the  first-order  accurate  boundary  conditions  do  not  introduce  too 
much  error  into  the  solution.  The  other  concerns  convergence  rates.  Since  the  invisdd  equations 
of  fluid  dynamics  do  not  have  any  natural  dissipative  mechanism,  and  since  the  boundaries 
reflect  waves,  the  best  convergence  rates  are  obtained  by  an  artful  use  of  the  artificial 
dissipation.  The  artificial  dissipation  coefficients  (DIS2  and  DIS4,  see  Section  4.6)  should 
be  large  to  start  with  (maximum  dissipation  of  spurious  transients)  and  then  reduced  as  much 
as  possible  (maximum  accuracy).  This  takes  some  skill  since  any  change  in  any  flow  parameter 
produces  a  perturbation  in  the  simulated  flow,  which  takes  a  number  of  iterations  to  relax. 
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4,5.2  Viscous  Flow 

Viscous  flow  simulations  are  also  selected  through  the  IN VI SC  input  parameter  (See  Section 
4.5. 1).  A  value  of  one  for  an  element  of  IN VI SC  causes  viscous  flux  differences  to  be  included 
for  that  coordinate  direction  [e.g.,  INVISC(2)  =  1  causes  the  difference  between  the 
appropriate  viscous  fluxes  at  K  + 1  and  K—  1  to  be  calculated  at  every  grid  point].  Several 
specializations  of  viscous  flow  can  be  specified  depending  on  the  values  of  each  element  of 
the  integer  vector  INYISC.  A  thin-layer  simulation  (similar  to  that  provided  in  the  ARC  code) 
can  be  selected  by  setting  the  element  of  INYISC  that  corresponds  to  the  coordinate  that 
varies  across  shear  layers  to  one;  all  other  elements  of  INVISC  are  set  to  zero  [e.g,,  in  a 
2-D  problem  for  which  the  K-varying  lines  cross  the  shear  layers,  this  option  is  selected  by 
INVISC(l)  =  0,  INVISC(2)  =  1].  Fully  viscous  simulations  are  selected  by  setting  all  of 
the  elements  of  INVISC  to  one  (the  default).  For  complex  viscous  flows,  the  last  option  is 
always  recommended. 

Viscous  flow  simulations  may  be  either  laminar  or  turbulent.  Laminar  flow  simulations 
are  selected  by  setting  all  of  the  elements  of  LAMIN,  an  integer  vector  whose  elements  are 
connected  with  the  grid  indices  in  the  same  way  as  INVISC  (See  Section  4.5.1)  to  zero.  A 
value  of  one  for  any  element  of  LAMIN  causes  the  flow  to  be  treated  as  turbulent.  For  the 
algebraic  turbulence  model  to  produce  best  results,  always  set  the  elements  of  LAMIN  as 
described  for  the  thin-layer  option  for  INVISC.  The  algebraic  turbulence  model  provided 
with  the  PARC  code  is  based  on  the  assumption  that  the  coordinate  direction  across  shear 
layers  is  known,  as  set  by  the  nonzero  element  of  LAMIN.  However,  if  any  element  of  LAMIN 
is  nonzero,  then  turbulent  shear  stresses  will  be  calculated  as  determined  by  INVISC.  For 
example,  if  INVISC  —  1,1,  and  LAMIN  =  0,  1,  then  the  turbulent  shear  stresses  will  be 
calculated  assuming  that  K-varying  lines  cross  shear  layers,  and  these  stresses  will  be  calculated 
for  both  coordinate  directions  (fully  viscous). 

For  either  laminar  or  turbulent  simulations,  several  additional  parameters  must  be  specified 
that  are  not  required  for  inviscid  simulations.  The  Sutherland  viscosity  law  requires  the 
specification  of  TSUTH  and  TREFR.  TSUTH  is  the  Sutherland  viscosity  law  temperature 
(frequently  denoted  as  S)  appropriate  for  the  fluid  being  simulated.  TREFR  is  the  reference 
temperature  that  was  used  to  nondimensionalize  the  initial  flow  Held  and  the  boundary 
conditions.  Both  of  these  temperatures  must  be  in  the  same  units  (e.g.,  degrees  Rankine). 
Note  that  TREFR  is  also  used  to  dimensionalize  the  printed  output  (See  Section  4.9).  Although 
the  default  value  (-2/3,  Stokes  hypothesis)  for  the  second  coefficient  of  viscosity  is  usually 
appropriate,  it  can  be  changed  through  the  input  parameter  VRAT.  All  viscous  flow 
simulations  also  require  the  specification  of  the  Prandtl  number  (input  parameter  PR)  and 
the  Reynolds  number  (input  parameter  RE).  The  Prandtl  number  is  usually  obtainable  from 
tabulated  values,  but  may  be  calculated  directly  by  the  ratio  of  thermal  conductivity  to  the 
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specific  heat  at  constant  pressure  and  the  first  coefficient  of  viscosity,  all  at  reference  condition. 
On  the  other  hand,  the  Reynolds  number,  RE,  must  be  calculated  based  on  the  reference 
density,  reference  speed  of  sound,  reference  length,  and  reference  viscosity. 

The  algebraic  turbulence  model  included  in  the  PARC  code  has  been  optimized  for  internal 
flow  involving  free  jets  (e.g.,  rocket  exhaust  flows  in  a  ground  test  diffuser).  However,  it 
has  been  successfully  used  for  a  wide  variety  of  flow  simulations  (e.g.,  turbine  engine  inlet 
flows  at  flight  conditions).  If  the  turbulence  simulation  proves  to  be  inadequate,  there  are 
a  number  of  alternatives.  The  easiest  is  to  vary  the  values  of  the  adjustable  constants  in  the 
PARC  turbulence  model.  The  parameter  COFM1X  (default  0.09)  scales  the  turbulent  viscosity 
for  free  shear  layers.  For  example,  if  it  is  determined  that  a  wake  is  not  spreading  fast  enough, 
increasing  the  value  of  COFMIX  from  its  default  value  may  improve  the  quality  of  the 
simulation.  Another  adjustable  constant,  PRT,  determines  the  relative  strength  of  turbulent 
thermal  diffusion  to  turbulent  velocity  diffusion.  Variation  of  this  parameter  from  its  default 
is  almost  entirely  an  art  and  is  not  recommended  unless  the  user  is  well  versed  in  the  subject 
of  turbulence.  The  last,  and  not  least,  way  to  improve  a  turbulent  simulation  using  the  PARC 
code  is  to  replace  the  existing  turbulence  model  with  a  new  one.  Although  this  requires 
considerable  skill,  it  is  a  skill  which  any  serious  CFD  group  can  not  afford  to  be  without. 
The  mechanics  of  this  replacement  are  straightforward  as  the  PARC  code  was  developed 
with  this  possibility  in  mind.  Subroutines  MUTUR  and  MUTURW  need  to  be  replaced  with 
new  routines  which  store  the  values  of  eddy  viscosity  in  the  array  TURMU, 


4.5.3  Transient  Flow 


Although  the  PARC  code  was  primarily  designed  to  simulate  steady-state  flows,  it  has 
been  successfully  used  to  solve  a  number  of  transient-flow  problems.  For  this  purpose,  two 
simulation  techniques  are  selectable  through  an  appropriate  setting  of  the  input  parameter 
ISOLVE.  A  value  of  one  for  ISOLVE  selects  the  pentadiagonal  solver.  This  is  the  steady- 
state  solution  algorithm  that  is  the  default.  This  simulation  algorithm  will  always  produce 
the  best  convergence  rates  for  steady-state  flow  simulations.  It  is  also  the  most  efficient  way 
to  simulate  transient  flows  (large  time-step  size).  However,  the  pentadiagonal  solver  does 
not  track  shocks  or  other  strong  gradients  very  accurately.  If  this  solution  technique  is  used, 
the  input  parameter  IVARDT  must  be  set  to  zero  (See  Section  4.7).  A  value  of  zero  or  minus 
one  for  ISOLVE  selects  the  pseudo-Runge-Kutta  solver.  Although  not  normally  recommended, 
a  value  of  zero  for  ISOLVE  selects  a  local  time-stepping  version  of  this  solution  algorithm 
(local  CFL  number  set  by  DTCAP;  see  Section  4.7).  Whereas  a  value  of  minus  one  for  ISOLVE 
provides  a  time-accurate  solution  using  the  pseudo-Runge-Kutta  flow  solver,  the  input 
parameter  IRKORD  determines  the  order  of  the  method.  A  value  of  three  gives  a  three-stage 
scheme,  a  value  of  four  gives  a  four-stage  scheme,  and  a  value  of  five  gives  a  five-stage  scheme. 
For  either  of  these  transient-flow-simulation  methods,  the  time-step  size  is  determined  by 
the  value  of  DTCAP  (See  Section  4.7). 
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4.6  ARTIFICIAL  VISCOSITY 

The  degree  of  artificial  viscosity  used  in  a  PARC  code  simulation  of  fluid  flow  is  primarily 
determined  by  the  values  of  the  input  parameters  DIS2  and  DIS4.  DIS2  is  the  global  scaling 
factor  of  the  second-order  artificial  viscosity  coefficient.  This  type  of  dissipation  is  very 
diffusive  in  general.  Its  primary  purpose  is  to  enhance  stability  and  accuracy  in  the  vicinity 
of  strong  shocks  and  to  improve  the  robustness  of  the  PARC  code  during  strong  transients. 
An  automatic  damping  coefficient  limits  the  effectiveness  of  this  type  of  dissipation  to  regions 
of  the  flow  that  possess  significant  numerical  pressure  gradients  [i.e.,  where  P(J  +  1,K,L) 
—  P(J-1,K,L)  is  large  compared  to  P(J,K,L)].  Thus,  expansions  and  compressions  that  are 
resolved  over  a  small  number  of  points  can  trigger  an  inappropriate  amount  of  this  artificial 
viscosity.  The  only  remedies  are  to  reduce  the  value  of  DIS2  or,  better  yet,  to  regrid  for  better 
resolution  in  these  areas.  In  general,  it  is  recommended  that  all  simulations  be  started  with 
DIS2  at  its  maximum  value  (0.25,  the  default),  and  then  to  reduce  the  value  of  DIS2  as  low 
as  is  consistent  with  stability  and  accuracy.  This  is  an  exacting  art  since  any  change  in  any 
flow  parameter  produces  a  perturbation  in  the  simulation,  which  takes  further  iterations  to 
remove. 

D1S4  is  the  global  coefficient  of  the  fourth-order  artificial  viscosity.  This  type  of  dissipation 
is  uniformly  applied,  but  should  have  no  more  effect  on  the  accuracy  of  the  solution  than 
that  produced  by  the  inherent  errors  of  the  PARC  algorithm.  Although  the  DIS2  parameter’s 
value  can  often  be  set  to  zero  with  minimal  effect  on  stability  (no  strong  shocks  or  expansions), 
decreasing  the  value  of  DIS4  often  produces  negligible  differences  In  the  flow  field.  Thus, 
it  is  generally  recommended  that  the  value  of  DIS4  be  kept  at  its  maximum  (0.64,  the  default). 
After  the  value  of  DIS2  has  been  reduced  as  much  as  possible,  reduction  of  the  value  of 
DIS4  can  be  attempted  to  note  its  effect  on  the  simulation.  However,  as  noted  previously, 
this  is  rarely  worthwhile. 

A  number  of  ways  are  also  provided  for  modifying  the  variable  part  of  the  artificial  viscosity 
coefficients  (the  spectral  radius  term).  When  simulating  viscous  flows.  It  is  imperative  that 
the  artificial  dissipation  be  less  than  the  corresponding  physical  dissipation.  Setting  the  input 
parameter  IFILTR  equal  to  two  selects  a  viscous  correction  to  the  spectral  radius  term.  This 
correction  sets  the  spectral  radius  term  to  zero  wherever  the  cell  Reynolds  number  is  less 
than  two.  Since  this  modification  is  computationally  expensive,  the  default  value  for  IFILTR 
should  be  used  unless  there  is  reason  to  think  that  the  artificial  dissipation  is  swamping  the 
physical  dissipation.  The  input  parameter  SPLEND  determines  how  the  spectral  radius  term 
is  calculated  and,  thus,  how  diffusive  the  artificial  viscosity  will  be  in  the  simulated  flow. 
A  value  of  one  for  SPLEND  (the  default)  selects  isotropic  artificial  dissipation.  That  is,  the 
spectral  radius  term  at  each  grid  point,  is  based  upon  an  average  of  the  spectral  radius  terms 
calculated  for  each  coordinate  direction.  This  option  is  very  stabilizing,  but  very  diffusive. 
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Setting  SPLEND  to  zero  provides  a  nonisotropic  artificial  dissipation  coefficient.  The  spectral 
radius,  for  each  coordinate  direction,  is  used  as  calculated  and  is  not  averaged.  This  minimizes 
the  effect  of  artificial  dissipation,  but  is  not  as  robust  as  the  first  option,  especially  during 
the  initial  transient  phase  of  a  simulation.  A  compromise  between  these  two  extremes  may 
be  selected  by  setting  SPLEND  to  a  value  between  zero  and  one,  which  gives  a  nonlinear 
weighted  average  of  the  isotropic  and  nonisotropic  approaches. 

Finally,  if  the  pseudo-Runge-Kutta  solver  (See  Section  4.5)  has  been  selected,  a  means 
has  been  provided  to  allow  for  larger  time  steps  (CFL  numbers)  at  the  price  of  reduced  temporal 
accuracy.  Setting  the  input  parameter  SMOO  to  one  activates  the  implicit  residual  smoothing 
option.  This  option  averages  the  forcing  functions  (the  RHS)  before  each  pseudo-Runge- 
Kutta  step.  Care  must  be  used  with  this  option  since  the  time  accuracy  of  the  solution  may 
be  degraded  to  the  level  of  that  provided  by  the  pentadiagonal  solver,  without  a  corresponding 
increase  in  the  time-step  size. 

4.7  TIME-STEP  CONTROL 

Since  the  time-step  size  has  a  direct  effect  on  the  convergence  rate,  quite  a  bit  of  flexibility 
is  built  into  the  PARC  code  in  terms  of  time-step  control.  Most  basic  is  the  ability  to  set 
the  number  of  iterations  to  be  performed  and  current  iteration  number.  The  maximum  number 
of  iterations  to  be  preformed  during  the  current  execution  of  the  PARC  program  is  set  through 
the  input  parameter  NMAX.  For  example,  if  NMAX  =  1 ,000  were  input  in  a  simulation 
for  which  the  restart  file  contained  the  solution  at  a  total  iteration  count  of  2,000,  then  1 ,000 
iterations  would  be  preformed  during  execution  of  the  PARC  code,  and  the  total  iteration 
count  of  the  resulting  restart  file  would  be  3,000.The  value  of  NMAX  is  ignored  if  the 
parameter  NUMDT  is  nonzero  (See  the  following).  The  initial  value  of  the  total  iteration 
count  can  be  changed  from  that  on  the  input  restart  file  (See  Section  5.3)  by  appropriate 
use  of  the  input  parameter  NC.  If  the  value  of  NC  is  minus  one  (the  default  value),  then 
the  iteration  count  on  the  restart  file  is  used,  otherwise  the  value  of  NC  is  used.  For  example, 
if  the  value  of  NC  is  zero,  the  value  of  NMAX  is  1 ,000,  and  the  value  of  the  iteration  count 
on  the  input  restart  file  is  2,000,  then  the  value  of  the  iteration  count  on  the  output  restart 
file  will  be  1 ,000. 

Two  other  ways  of  specifying  when  the  execution  of  the  PARC  code  should  stop,  with 
normal  printed  and  restart  output,  are  also  provided.  A  nonzero  value  of  the  input  parameter 
STOPL2  specifies  the  L2  residual  level  at  which  the  current  execution  of  the  PARC  code 
is  to  be  terminated.  This  option  must  be  used  with  care  since  the  L2  residual  is  a  relative 
measure  of  convergence  and  not  an  absolute  one.  Note  that  the  value  of  the  parameter  NSPRT 
must  be  a  relatively  small  factor  of  the  value  of  NMAX  for  this  option  to  be  effective.  A 
nonzero  value  of  the  input  parameter  STOPTR  specifies  that,  after  each  iteration  for  each 
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block,  the  PARC  code  checks  the  time  remaining  for  the  computer  job.  When  the  time 
remaining  (in  seconds)  is  less  than  the  value  of  STOPTR,  the  program  terminates.  It  is 
sometimes  convenient  to  set  NMAX  to  a  large  value  and  let  the  solution  continue  until  it 
runs  out  of  time.  Care  must  be  taken  to  set  STOPTR  large  enough  that  the  program  has 
time  to  write  and  dispose  all  of  the  requested  output  Hies. 

Also  of  considerable  importance  is  the  ability  to  directly  set  the  iteration  step  size.  DTCAP 
is  the  input  parameter  that  sets  the  maximum  time-step  size  allowed  during  a  run.  However, 
its  exact  use  depends  on  the  values  of  other  input  parameters.  In  particular,  the  value  of 
DTCAP  is  ignored  if  the  value  of  either  NUMDT  or  DTBLK  is  nonzero  (See  the  following 
sections).  The  value  of  the  input  parameter  IVARDT  controls  the  use  of  DTCAP.  If  IVARDT 
is  set  to  zero,  then  this  is  the  nondimensional  computational  time  step.  (The  simulation  is 
time  accurate.)  Other  values  of  IVARDT  cause  the  value  given  by  DTCAP  to  be  scaled  by 
local  (grid  point  location  dependent)  parameters  that  are  designed  to  accelerate  steady-state 
convergence.  If  IVARDT  is  set  to  one,  then  the  local  time  step  is  proportional  to  the  reciprocal 
of  one  plus  the  square  root  of  the  Jacobian.  If  IVARDT  is  two,  then  the.  local  time  step 
is  proportional  to  the  reciprocal  of  the  maximum  eigenvalue  of  the  inviscid  flux  Jacobians 
including  a  viscous  correction,  if  required.  This  last  option  can  be  viewed  as  selecting  a  local 
time  step  such  that  the  local  Courant  numbers  are  roughly  equal  (to  the  value  of  DTCAP). 
This  has  proved  to  be  the  best  choice,  in  general,  for  accelerated  convergence  rates.  However, 
this  option  can  sometimes  produce  very  poor  convergence  rates.  If  this  should  appear  to 
occur,  try  one  of  the  other  options.  For  the  Runge-Kutta  solver  (See  Section  4.5),  IVARDT 
is  ignored,  and  the  value  of  DTCAP  provides  either  a  true  time-step  size  or  a  limiting  CFL 
value  (2.8  or  8.4  with  implicit  residual  smoothing). 

4.7.1  Temporal  Variation 

This  option  (selected  by  setting  IVARDT  to  one  or  two)  allows  the  global  time-step  size 
(DTCAP)  to  automatically  vary  from  iteration  to  iteration.  This  is  useful  for  two  purposes. 

1 .  Stability  —  This  option  can  detect  potential  stability  problems  caused  by  the  time- 
step  size  being  too  large  and,  the  option  will  automatically  attempt  to  correct 
this  condition  by  reducing  the  global  time-step  size. 

2.  Convergence  —  This  option  can  force  the  solution  to  proceed  at  a  rate  determined 
from  the  maximum  relative  change  in  density  or  pressure  in  the  flow  field. 

The  parameters  controlling  this  option  are  PCQMAX  and  DTCAP  (or  DTBLK;  see  the 
following).  PCQMAX  is  an  input  parameter  whose  value  determines  the  maximum  percent 
change  in  either  density  or  pressure  to  be  allowed  during  any  iteration.  Recommended  range 
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for  this  parameter  is  between  1  and  25.  Best  use  of  this  temporally  varying  time-step  option 
is  to  set  the  values  of  these  parameters  appropriately  for  the  degree  of  convergence. 

1.  Initial  Stage  —  During  the  first  set  of  iterations,  until  the  solution  begins  to 
resemble  its  steady-state  configuration,  it  is  best  to  set  the  value  of  DTCAP  high 
(say  100.0)  and  let  the  value  of  PCQMAX  govern  the  time-step  size  (say  PCQMAX 
=  10.0,  the  default).  This  will  usually  get  the  simulation  through  the  relatively 
nonphysical,  rapidly  changing  part  of  the  convergence  process  in  the  fewest  number 
of  iterations. 

2.  Asymptotic  Stage  —  From  the  end  of  the  initial  stage  of  convergence  until  final 
convergence,  it  is  essential  to  set  the  value  of  DTCAP  to  a  value  somewhat  lower 
than  the  largest  value  at  which  the  time-step  size  remains  constant  throughout 
a  set  of  iterations  (See  the  convergence  statistics  discussion  in  Section  4.9).  If  this 
is  not  done,  then  final  convergence  is  impossible  since  the  solution  must  then  always 
have  at  least  one  point  that  varies  according  to  the  value  of  PCQMAX. 

4.7.2  Time-Step  Sequencing 

This  option  allows  the  user  to  specify  a  sequence  of  time  steps  (actually  values  of  DTCAP) 
for  use  during  an  execution  of  the  PARC  code.  Selection  and  control  of  this  option  is  affected 
by  the  NUMDT,  DTSEQ,  and  ITERDT  input  parameters.  NUMDT  is  a  time-step  sequencing 
selection  parameter.  A  value  of  zero  (the  default)  does  nothing  (no  time-step  sequencing), 
whereas  a  positive  value  both  selects  this  option  and  provides  the  number  of  sequencing  steps. 
Selection  of  this  option  requires  the  presence  of  the  NAMELIST  SEQDT  as  described  in 
Section  5.4.  If  NUMDT  is  nonzero,  then  it  sets  the  number  of  time  sequencing  steps  (limited 
by  MOS,  see  Section  5.1)  and  NAMELIST  SEQDT  must  follow  INPUTS.  SEQDT  has  only 
two  parameters,  described  as  follows: 

DTSEQ  A  real  vector  that  contains  the  sequence  of  DTCAPs  to  be  used  during 

the  run. 

ITERDT  An  integer  vector  containing  the  sequence  of  iteration  limits  (similar 
in  effect  to  NMAX  for  each  time  step)  to  be  used  during  the  run. 
These  are  paired  up  one-to-one  with  the  elements  of  DTSEQ. 

Although  theory  and  experience  show  that  an  optimal  sequence  of  time  steps  can  dramatically 
speed  up  convergence  rates,  there  is  little  guidance  on  how  to  a  priori  determine  this  sequence. 
Nonoptimal  sequences  can  actually  worsen  the  convergence  rate,  so  it  is  best  to  treat  this 
option  with  care. 
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4.7.3  Block  Variation 

A  different  value  of  DTCAP  can  be  specified  for  each  grid  block  through  the  input 
parameters  DTBLK.  This  parameter  is  only  effective  if  more  than  one  grid  block  is  being 
used.  If  DTBLK  is  greater  than  zero,  this  value  is  used  as  the  DTCAP  for  the  block,  overriding 
the  global  DTCAP.  If  not  greater  than  zero,  the  global  DTCAP  is  in  effect  (i.e.  either  DTCAP 
or  the  appropriate  element  of  DTSEQ  in  effect). 

4.8  BOUNDARY  CONDITIONS 

The  PARC  code  is  designed  so  that  specification  of  boundaries  and  boundary  conditions 
is  done  entirely  through  inputs  to  the  program.  This  makes  the  use  of  the  code  very  flexible 
and  economical,  but  requires  that  boundary  specification  be  a  large  part  of  the  inputs.  As 
an  aid  in  explaining  the  function  of  the  boundary  parameters,  the  simple  problem  laid  out 
in  Fig.  2  will  be  used  as  an  example  application.  Refer  to  Appendix  E  for  more  realistic 
applications. 

4.8.1  Construction  Procedure 

The  methodology  to  be  used  in  generating  the  information  required  to  specify  the  boundary 
parameters  is  as  follows: 

1.  Locate  and  label  boundary  segments;  break  the  boundaries  up  into  segments  so 
that  each  segment  is 

a.  contained  on  a  coordinate  surface  (J-,  K-,  or  L-constant  surface); 

b.  made  up  of  contiguous  points  that  can  use  the  same  boundary-condition 
information  (e.g.,  each  point  is  a  no-slip  wall  point  with  the  same  specified 
temperature); 

c.  simply  connected  (i.e.  no  “holes"  or  excluded  points);  and 

d.  "wetted"  by  the  fluid  within  the  grid  on  one,  and  only  one,  side. 

2.  The  resulting  boundary  segments  are  considered  to  belong  to  one  of  the  J-,  K-, 
or  L-constant  index  classes  and  are  then  numbered  in  any  convenient  manner, 
starting  with  1,  within  each  index  class.  (This  numbering  is  not  required  if  the 
formatted  read  option  is  used.)  As  illustrated  in  Fig.  2,  the  example  problem's 
boundaries  are  split  into  five  segments  with  two  in  the  J-constant  class  and  three 
in  the  K -constant  class  and  have  been  appropriately  numbered. 
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3 .  Determine  the  indices  of  each  segment.  This  is  generally  an  automatic  by-product 
of  the  first  step. 

4.  Find  the  sign  of  the  surface  normal  for  each  segment;  this  is  determined  by  using 
the  index  increment  required  to  move  from  the  constant  index  surface  of  the 
segment  to  the  similar  constant  index  surface  within  the  flow  field.  For  example, 
consider  the  case  of  a  segment  in  a  K-constant  surface.  If  the  K-l  constant  surface 
(bounded  by  the  same  J  and  L  limits  as  the  K-constant  segment)  is  within  the 
flow  field,  then  the  unit  normal  is  -1.  (Note  that  if  this  procedure  results  in  an 
ambiguous  unit  normal,  then  the  segment  has  been  incorrectly  specified). 

5.  Determine  the  desired  boundary-condition  code  and  any  auxiliary  variables.  Each 
boundary  condition  allowed  for  in  the  PARC  code  has  a  boundary-condition- 
type  code  assigned  to  it.  Some  of  these  also  require  auxiliary  information  (e.g., 
static  pressure).  The  boundary-condition  types  and  auxiliary  variables  are  listed 
in  the  following  table: 


Boundary-Condition  Types 


Code 

Description 

Auxiliary  Variables 

-10 

Fixed 

None 

0 

Free 

PRESS  and  TEMP 

3 

Extrapolation 

None 

7 

Free  Stream 

PRESS  and  TEMP 

50 

Slip 

None 

51 

Axis-of-Symmetry 

None 

60 

No-Slip,  Adiabatic 

None 

61 

No-Slip,  Isothermal 

TEMP 

70 

Contiguous 

INTER 

71 

Noncontiguous 

INTER 

73 

Void 

INTER 

77 

Continuous  Pressure 

INTER 

80 

Averaging  (2-D) 

None 

81  to  83 

Averaging  (3-D) 

None 

91  to  96 

Specified  Mass  Flux 

PRESS  and  TEMP 
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A  detailed  description  of  each  boundary  condition  follows: 

Fixed  Conditions  All  flow-field  values  are  held  fixed  at  their  initial  values  provided 
by  the  restart  file.  Suggested  use  is  for  known  supersonic  inflow 
boundary  segments. 

Free  Boundary  The  auxiliary  pressure  and  temperature  are  assumed  to  be  total 
values  on  inflow  portions  of  the  boundary,  and  static  values 
on  outflow  sections.  Any  boundary  segment  through  which  the 
fluid  flow  can  freely  pass  and  is  not  a  known  supersonic  inflow 
(See  Fixed  Conditions),  a  known  supersonic  outflow  (See 
Extrapolation),  a  far-fleld  external  flow  (See  Free  Stream),  or 
a  mass  flux  (See  Specified  Mass  Flux)  boundary  is  considered 
to  be  a  free  boundary.  Imposition  of  the  correct  inflow  or 
outflow,  supersonic  or  subsonic  boundary  condition  is  taken 
care  of  automatically.  However,  the  current  implementation 
requires  that  the  user  be  careful  about  a  couple  of  points.  One 
is  that  this  boundary  condition  works  best  if  the  boundary 
segment  is  close  to  being  normal  to  the  expected  flow  directions 
as  possible.  In  particular,  boundaries  of  this  type  that  are  nearly 
parallel  to  the  dominant  flow  direction  almost  always  produce 
poor  results.The  second  point  to  be  careful  about  is  caused  by 
the  dual  use  of  the  specified  pressure  auxiliary  variable.  It  is 
used  as  a  total  pressure  for  subsonic  inflow  and  as  a  static 
pressure  for  subsonic  outflow,  which  does  not  always  produce 
expected  results,  especially  for  external  flows.  The  recommended 
procedure  to  avoid  this  problem  is  to  place  these  boundaries 
so  that  the  expected  dominant  flow  through  them  will  be 
unambiguously  inflow  or  outflow  and  to  specify  the  pressure 
auxiliary  variable  accordingly  (total  or  static,  respectively),  or 
to  use  the  free-stream  boundary  condition  described  below.  Note 
that  the  total  temperature  auxiliary  variable  should  always  be 
specified,  even  if  it’s  only  a  guess,  to  avoid  possible  problems 
during  the  large  transients  portion  of  the  convergence  process. 

Extrapolation  This  boundary  condition  extrapolates  all  flow-field  variables 
using  a  zero  derivative  condition.  That  is,  boundary  flow 
variables  are  set  equal  to  the  values  one  grid  point  off  of  this 
boundary. 
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Free  Stream 


Slip  Surface 


Axis  of  Symmetry 


Adiabatic  wail 


Isothermal  Wall 


Contiguous 


This  is  an  external  far-field  boundary  condition.  Imposition  of 
the  correct  inflow  or  outflow,  supersonic  or  subsonic  boundary 
condition  is  taken  care  of  automatically.  The  auxiliary  pressure 
and  temperature  are  assumed  to  be  the  free-stream  static  values. 
No  check  is  made  to  insure  that  these  values  are  consistent  for 
different  boundary  segments.  The  angle  of  attack,  yaw,  and 
Mach  number  of  the  free  stream  are  taken  to  be  ALPHA, 
BETA,  and  XMACH  (See  Appendix  A). 

All  flow  gradients  normal  to  this  boundary  segment’s  surface 
are  taken  to  be  zero  along  with  the  component  of  velocity  normal 
to  this  surface.  This  boundary  condition  does  double  duty  as 
a  symmetry  plane  boundary  condition  as  well  as  the  slip-wall 
boundary  condition. 

Very  similar  in  function  to  the  slip-surface  boundary  condition, 
this  boundary  specification  is  specialized  for  application  to  the 
axis  of  symmetry  for  simulations  using  the  axisymmetric  option 
of  the  PARC2D  code. 

All  velocity  components  and  the  normal  gradients  of  pressure 
and  temperature  are  set  to  zero  on  boundary  segments  using 
this  option.  The  current  implementation  requires  that  the  grid 
lines  intersecting  this  surface  be  nearly  normal  to  it  for  best 
results. 

Similar  to  the  boundary  condition  discussed  above  except  that 
the  surface  temperature  is  set  to  that  provided  through  the 
temperature  auxiliary  variable. 

These  boundary  segments  must  come  in  pairs  as  determined  by 
the  auxiliary  variable  INTER.  For  the  purpose  of  illustration, 
call  the  given  boundary  segment  BC1  and  its  associated 
boundary  segment  BC2.  Using  the  sign  of  the  surface  normal 
for  BC2,  determine  the  first  constant-index  surface  inside  the 
flow  field  next  to  BC2.  It  is  assumed  that  BC1  is  coincident  with 
this  surface.  The  boundary  condition  is  imposed  by  setting  the 
flow  variables  at  each  node  of  BC1  equal  to  the  flow  variables 
of  its  corresponding  node. 
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Noncontiguous 


Void 


Pressure 


Averaging  (2-D) 


Averaging  (3-D) 


Mass  Flux 


These  boundary  segments  must  come  in  pairs  as  determined  by 
the  auxiliary  variable  INTER.  To  impose  the  boundary 
condition,  first  the  block  of  its  associated  boundary  segment 
is  found;  for  short  call  it  BJ.  For  each  node  of  the  given 
boundary  segment,  if  it  is  located  in  BJ,  then  the  values  of  the 
flow  variables  at  the  node  are  found  by  interpolation.  If  it  is 
not  located  in  BJ,  then  the  values  of  the  flow  variables  at  the 
node  are  left  unchanged. 

Sometimes  it  is  desired  to  set  boundary  conditions  by 
interpolation  (Type  71)  when  there  is  no  associated  boundary 
segment  in  the  block  from  which  the  interpolations  are  to  be 
made.  In  such  a  case,  a  boundary  segment  of  Type  73  can  be 
specified  in  the  block  where  the  interpolations  are  to  be  made. 
No  boundary  conditions  are  imposed  for  such  a  boundary 
segment.  It  only  indicates  the  target  block  for  its  associated 
boundary  segment.  The  only  information  that  needs  to  be  input 
for  such  a  boundary  segment  is  its  type  (73)  and  the  auxiliary 
variable  INTER. 

This  boundary  condition  is  identical  to  Type  71,  except  between 
blocks  with  different  GAMMA.  The  pressure  is  kept  continuous 
between  such  blocks.  (However,  there  is  an  energy  discrepancy.) 

This  boundary  condition  is  used  when  a  boundary  line  (call  it 
B)  is  degenerate  to  a  point.  For  each  flow  variable,  the  average 
of  the  variable  is  found  over  all  the  nodes  of  B,  then  the  flow 
variable  is  set  to  that  average  value  at  all  the  nodes  of  B. 

This  boundary  condition  is  used  when  a  boundary  surface  is 
degenerate  to  a  line.  On  such  a  surface,  one  set  of  coordinate 
lines  coincide  with  the  degenerate  line,  and  the  other  set  of 
coordinate  lines  are  degenerate  to  points.  The  boundary 
conditions  are  imposed  on  each  of  the  degenerate  coordinate 
lines  as  described  in  the  2-D  case  above.  The  last  digit  of  the 
type  code  indicates  the  index  that  when  varied  produces  the 
coordinate  lines  that  are  degenerate  to  points. 

The  signed  mass  flux  is  specified  through  the  auxiliary  pressure. 
The  auxiliary  temperature  inputs  the  total  temperature  of  the 
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flow.  This  boundary  condition  functions  very  similarly  to  the 
free-boundary  condition  except  that  the  pressure  is  determined 
indirectly  through  the  specified  mass  flux.  The  last  digit  of  the 
code  for  this  boundary  condition  (1  through  6)  is  used  to  control 
the  relaxation  of  the  pressure  towards  the  value  that  will  produce 
the  desired  mass  flux,  with  1  giving  the  fastest  and  6  the  slowest 
relaxation.  The  mass  flux  specified  through  the  auxiliary  pressure 
is  to  be  positive  for  flow  into  the  flow  Held  and  negative  for 
flow  out  of  the  flow  field. 


4.8.2  NAMELIST  Input 

Once  the  boundaries  are  split  into  segments  and  the  appropriate  boundary-condition 
information  is  determined  for  each  segment,  as  described  previously,  the  method  of  inputting 
this  information  to  the  PARC  code  must  be  decided.  This  method  is  signaled  through  the 
input  parameter  NBCSEG.  If  NBCSEG  has  a  value  of  zero,  then  this  information  is  input 
to  the  PARC  code  through  parameters  in  NAMELIST  BOUNDS.  The  basic  philosophy  behind 
the  use  of  these  parameters  is  very  similar  to  that  used  in  assembling  the  boundary-condition 
information  in  that  a  set  of  parameter  vectors  are  associated  with  each  J-,  K-,  and  L-  constant 
index  class  of  boundary  segments  with  the  elements  of  the  vectors  corresponding  to  particular 
segments  within  each  class.  This  will  be  made  clearer  through  the  description  of  these 
parameters  and  the  following  example: 

NJSEG  This  parameter  gives  the  total  number  of  boundary  segments  for  each 

NKSEG  of  the  J,  K,  and  L  coordinate  classes. 

NLSEG 

JLINE  Integer  vectors  that  identify  the  J-,  K-,  and  L-constant  index  of  each 

KLINE  of  the  corresponding  boundary  segments  within  each  coordinate  class. 

LLINE 

M 

JTYPE  Integer  vectors  whose  elements  contain  the  appropriate  boundary- 

KTYPE  condition-type  code  for  each  boundary  segment. 

LTYPE 

JSIGN  Integer  vectors  that  associate  the  sign  of  the  surface  normal  with  the 

KSIGN  corresponding  boundary  segment  of  each  of  the  J,  K,  and  L  coordinate 

LSIGN  classes. 
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1NTERJ  Integer  vectors  that  pair  the  Types  70,  71,  INTERK  73,  and  77  boun- 

INTEKK  dary  segments.  Each  pair  of  associated  boundary  segments  must  be 

INTERL  assigned  a  unique  number  from  1  to  MXIF  (See  Section  5.1). 

PRESSJ  Vectors  of  auxiliary  pressures  for  each  coordinate  class.  Depending  on 

PRESSK  the  type,  the  definition  is  as  follows; 

PRESSL 

Type  Definition 

0  Non  dimensional  total  pressure  for  subsonic  inflow.  Nondimensional 

static  pressure  for  subsonic  outflow. 

7  Nondimensional  static  pressure  of  the  free  stream. 

91  to  96  The  nondimensional  signed  specified  mass  flux. 

TEMPJ  Vectors  of  auxiliary  temperatures  for  each  coordinate  class.  Depen- 

TEMPK  ding  on  the  type,  the  definition  is  as  follows: 

TEMPL 

Type  Definition 

0  Nondimensional  total  temperature  for  subsonic  inflow. 

7  Nondimensional  static  temperature  of  the  free  stream. 

61  Nondimensional  temperature  of  the  isothermal  wall. 

91  to  96  Nondimensional  total  temperature  for  inflow. 

The  following  integer  parameter  vectors  associate  the  appropriate  coordinate  indices  with 
each  boundary  segment.  This  association  is  coded  into  the  parameter  vectors  name  so  that 
the  first  letter  calls  out  the  J-,  K-,  or  L-  constant  index  class;  the  second  letter  identifies  the 
coordinate  index  being  specified;  and  the  remaining  letters  indicate  whether  this  is  the  minimum 
(LOW)  or  maximum  (HIGH)  value  of  this  index  for  the  boundary  segment.  For  example, 
JKLOW(2)  =  15,  is  interpreted  to  mean  that  the  minimum  value  of  the  K-index  for  the  second 
boundary  segment  in  the  J-constant  segment  class  is  fifteen.  The  complete  set  of  parameter 
vectors  for  this  purpose  are 

JKLOW  JKHIGH  JLLOW  JLHIGH 

KJLOW  KJHIGH  KLLOW  KLHIGH 

LJLOW  LJHIGH  LKLOW  LKHIGH 
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Consider  the  example  problem  shown  in  Fig.  2.  A  complete  NAMELIST  BOUNDS  setup 
could  look  like 

{BOUNDS 

NJSEG  =  2, 

JLINE(1)=  1,  JKLOW(l)=  1,  JKHIGH(l)  =  7,  JTYPE(1)  =  -10, 

JSIGN(1)  =  1, 

JLINE(2)  =  9,  JKLOW(2)=2,  JKHIGH(2)  =  6,  JTYPE(2)  =  0,  JSIGN(2)  =  -1, 
PRESS J(2)  =  0.0047,  TEMP J(2)=  1.0, 


NKSEG  =  3, 

KLINE(1)  =  1,  KJLOW(l)  =  2,  KJHIGH(1)  =  2,  KTYPE{1)=50, 
KSIGN(1)=  1, 

KLINE(2)  =  1,  KJLOW(2)  =  3,  KJHIGH(2)  =  9, 

KTYPE(2)  =  61,  KSIGN(2)  =  1,  TEMPK(2)  =  0.5, 


SEND 


KLINE(3)  =  7,  KJLOW(3)  =  2,  KJHIGH(3)  =  9,  KTYPE(3)  =  -10, 
KSIGN(3)  =  -1, 


Additional  examples  of  boundary-condition  specification  through  this  NAMELIST  are 
contained  in  Appendix  E. 

4.8.3  Formatted  Input 

An  option  is  provided  whereby  boundary-condition  data  can  be  input  by  a  formatted 
read  rather  than  by  NAMELIST  BOUNDS.  The  option  is  invoked  by  a  nonzero  value  of 
NBCSEG.  The  value  of  NBCSEG  must  be  the  total  number  of  boundary  segments  of  all 
classes.  The  formatted  data  is  read  by  the  following  FORTRAN  READ  and  FORMAT 
statements: 


2-D 

READ  (5,101)  JA,JB,KA,KB,ITYPE,ISIGN,INTER,PT,TT 
101  FORMAT  (715,  5X,  2E10.4) 


3-D 

READ  (5,101)  JA,JB,KA,KB,LA,LB,ITYPE,ISIGN,INTER,PT,TT 
101  FORMAT  (915,  5X,  2E10.4) 
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where 

JA,  KA,  LA  Minimum  J-,  K-,  and  L-grid  indices  of  the  boundary  segment. 

JB,  KB,  LB  Maximum  grid  indices  of  the  boundary  segment.  Note  that  the 

minimum  and  maximum  index  will  be  the  same  for  the  constant 
coordinate  index. 

ITYPE  Type  of  boundary  condition  (See  Boundary-Condition  Types  in 

the  previous  table). 

ISIGN  Sign  of  the  surface  normal  of  the  boundary  segment. 

INTER  Unique  number  assigned  to  each  pair  of  associated  boundary 

segments. 

PT  Auxiliary  pressure. 

TT  Auxiliary  temperature. 

Considering  again  the  example  problem  shown  in  Fig.  2,  the  formatted  data  is  given  in 
the  following.  (The  two  lines  at  the  top  indicate  the  column  positions  and  are  not  part  of 
the  input  data.).  The  boundary  segments  can  be  input  in  arbitrary  order. 

1  2  3  4  5  6 

123456789012345678901234567890123456789012345678901234567890 
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7 

-10 

-1 

3 

9 

1 

1 

61 

1 

0.5 

9 

9 

2 

6 

0 

-1 

0.0047  1.0 
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2 

1 

1 

50 
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4.9  OUTPUT 

Printed  output  consists  of  four  parts, 

1 .  a  record  of  the  run  parameters; 

2.  various  error  messages; 

3.  convergence  statistics  generated  as  the  run  progresses;  and 

4.  an  edited  printout  of  the  solution. 

4.9.1  NAMELIST  Parameters 

The  first  part  of  the  printed  output  written  to  Unit  6  (FT06)  is  a  listing  of  the  values 
of  the  NAMELIST  input  parameters  that  were  used  during  the  current  execution  of  the  PARC 
code.  They  are  printed  in  groups  corresponding  to  the  individual  NAMELISTs.  Each  group 
of  parameters  appears  only  if  the  NAMELIST  containing  them  was  part  of  the  actual  input 
on  Unit  5  (FT05)  (See  Section  5.1).  Sample  listings  showing  this  output  are  included  in 
Appendix  E.  Note  that  these  tabulated  values  are  not  simple  echoes  of  the  input  values  since 
they  are  not  printed  immediately  after  they  are  read  and  in  that  they  include  default  values; 
users  wishing  a  true  echo  of  their  NAMELIST  input  should  use  the  E  prefix  on  their 
NAMELIST  records  (See  the  CRAY  FORTRAN  manual  for  details). 

4.9.2  Grid  Patches 

To  facilitate  the  treatment  of  embedded  boundaries  within  a  grid,  the  grid  is  always  broken 
down  into  a  set  of  patches  for  each  of  the  computational  coordinate  directions  (J,  K,  and 
L).  These  patches  are  automatically  constructed  from  the  boundary  inputs  (See  Section  4.8 
and  Appendix  C)  and  are,  thus,  normally  of  no  concern  to  the  user.  If  boundaries  are 
misspecified,  however,  incorrect  patches  will  result.  Information  about  the  patches  can  then 
be  of  aid  in  identifying  the  boundary  specification  problem.  Because  the  major  problem  in 
the  provision  of  props'  inputs  to  the  PARC  code  is  often  connected  to  boundary  specification, 
especially  for  complex  3-D  simulations,  a  summary  of  the  grid  patches  is  provided  as  part 
of  the  printable  output. 
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Grid  patches  are  generated  so  that  for  each  coordinate  family  of  patches 

1.  each  patch  is  distinct  from  all  other  patches  in  the  same  family; 

2.  every  flow-field  point  and  only  flow-field  points  are  included  in  the  family  of 
patches,  excluding  boundary  points;  and 

3.  each  coordinate  line  along  which  the  patch  family  descriptor  varies  begins  and 
ends  one  point  off  of  a  boundary. 

For  example,  consider  Fig.  3,  which  displays  the  patches  that  would  be  generated  for 
a  hypothetical  fluid  flow  problem.  The  grid  for  this  example  is  plotted  in  computational 
coordinates  (J,  K)  in  Fig.  3a,  and  the  J-  and  K-patches  are  cross-hatched  in  Figs.  3b  and 
c,  respectively.  Note  how  the  cross-hatched  regions  obey  the  above  guidelines  for  both  the 
J  and  K  families  of  patches.  The  printed  output  for  this  example  would  appear  as  follows: 

GRID  PATCHES 


J-PATCHES 

1 

2 

3 

4 

K-PATCHES 

1 

2 

3 

4 


MINIMUM 
J  K 
5  2 

2  4 

2  6 
12  6 

MINIMUM 
J  K 
2  4 

5  2 

10  2 
12  2 


MAXIMUM 
J  K 
15  3 

15  5 

9  8 

15  8 

MAXIMUM 
J  K 
4  8 

9  8 

11  6 
15  8 


Note  that  the  patches  are  delimited  by  giving  the  coordinates  of  the  corner  points  of  each 
patch  (actually  just  the  maximum  and  minimum  ones).  When  errors  in  boundary  specification 
occur,  the  information  contained  in  the  error  message,  along  with  the  grid  patch  tabulation, 
will  often  pinpoint  the  source  of  the  error. 


4.9.3  Convergence  History 


The  next  portion  of  the  printed  output  contains  information  on  the  convergence  behavior 
of  the  flow  simulation.  This  consists  of  a  line  of  output  at  the  frequency  selected  by  the  input 
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parameter  NSPRT.  For  example,  if  the  value  of  NSPRT  is  ten  (the  default),  then  the 
convergence  history  parameters  (e.g.,  the  L2  residual)  are  calculated  and  printed  every  tenth 
iteration.  Each  line  always  includes  the  iteration  number  (COUNT),  grid-block  number 
(BLOCK),  time-step  scaling  factor  (DT),  L2  residual,  and  the  magnitude  and  location  of  the 
maximum  percentage  change  in  either  density  or  pressure  (MAX  PERCENT  VARIATION). 
In  addition,  if  selected  by  the  input  parameter  IFXPRT,  this  line  of  output  will  include  a 
measure  of  the  global  conservation  of  mass,  momentum,  and  energy  (the  net  FLUXes).  A 
value  of  zero  (default)  for  IFXPRT  excludes  the  flux  balances  from  the  printed  convergence 
history,  and  a  value  of  one  causes  the  flux  balances  to  be  calculated  and  printed.  See  Appendix 
E  for  sample  printouts  showing  the  format  of  this  part  of  the  printable  output.  This 
convergence  history  listing  contains  the  information  required  to  set  DTCAP  and  gives  an 
indication  of  the  overall  level  of  convergence  of  the  solution.  As  noted  previously,  the  L2 
residual  is  a  relative  measure  of  convergence;  it  is  best  to  monitor  the  fluxes  for  a  more  absolute 
measure  of  convergence. 

4.9.4  Flow-Field  Snapshot 

The  last  part  of  the  printable  output  contains  a  listing  of  selected  portions  of  the  flow 
field  at  the  frequency  selected  by  the  input  parameter  NP.  A  value  of  zero  (default)  for  NP 
suppresses  flow-field  print.  A  positive  value  is  used  as  the  frequency  for  printing  snapshots 
of  the  flow  field  (See  the  discussion  of  the  parameter  NSPRT  for  an  example).  Each  line 
of  this  listing  contains  the  grid  index,  the  dimensional  pressure,  temperature,  Mach  number, 
total  pressure,  direction  cosines  of  the  velocity,  and  the  nondimensional  physical  coordinates 
of  each  grid  point  selected.  The  pressures  and  temperatures  are  dimensionalized  by  the  values 
of  the  input  parameters  PREF  and  TREFR,  respectively.  Velocity  vector  direction  cosines 
are  the  same  as  the  ratios  of  the  velocity  components  to  the  magnitude  of  the  velocity  (e.g., 
V-COSINE  is  the  ratio  between  the  component  of  velocity  parallel  to  the  Y-axis  and  the 
magnitude  of  the  velocity  at  the  selected  point).  See  Appendix  E  for  sample  listings  containing 
this  information. 

To  reduce  the  amount  of  printed  output  while  providing  information  on  regions  of  interest 
within  the  flow  field,  a  set  of  options  are  available  that  allows  control  over  the  range,  increment, 
and  order  of  the  printed  flow-field  points.  If  the  input  parameter  NPSEG  is  set  to  zero,  then 
nothing  is  printed  for  the  block,  and  NAMELIST  PRTSEG  should  not  appear  in  the  input 
stream.  If  NPSEG  is  positive,  then  NAMELIST  PRTSEG  should  appear,  and  the  following 
should  be  defined: 

NPSEG  The  number  of  flow-field  segments  specified  in  NAMELIST  PRTSEG. 

PRTSEG  must  appear  in  the  input  as  indicated  in  Section  S.4,  if  NPSEG 
is  positive. 
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JKLPI  An  integer  array  dimensioned  (3, 3,  MPS)  for  PARC3D  and  (3, 2,  MPS) 
for  PARC2D.  The  values  contained  in  this  array  specify  the  coordinate 
limits  and  print  increments  for  each  segment  called  for  by  the  value 
of  NPSEG.  Referring  to  Fig.  4,  it  can  be  seen  that  this  array  contains 
the  indices  of  diagonally  opposite  corner  points  of  the  segment  to  be 
printed.  It  also  contains  the  desired  increments  to  be  used  in  stepping 
the  indices  from  the  starting  point  (Point  A)  to  the  ending  point  (Point 
B).  For  this  to  produce  correct  results,  the  statement  (JB  -  JA)/JI  > 

1  must  be  true,  as  for  the  other  indices. 

IPORD  An  integer  array  dimensioned  (2,  MPS)  for  PARC3D  or  an  integer 
vector  dimensioned  (MPS)  for  PARC2D.  This  parameter  determines 
the  order  in  which  the  indices  are  used  in  printing  each  segment  (the 
path  used  to  get  from  A  to  B  in  Fig.  4).  Associating  1  with  J,  2  with 
K,  and  3  with  L,  the  value  of  the  elements  of  IPORD  indicate  which 
index  is  to  be  incremented  the  fastest.  For  example,  IPORD  =  3,1 
in  a  3-D  problem  indicates  that  the  current  segment  is  to  be  printed 
with  the  L-index  incrementing  the  fastest,  the  J-index  the  next  fastest, 
and  the  K-index  the  least  fastest  (by  implication).  See  Appendix  E  for 
more  information  on  segmented  printing. 

4.9.5  Error  Messages 

A  variety  of  program-generated  error  messages  can  occur  at  any  point  in  the  printed  output, 
most  of  them  indicating  that  execution  is  being  terminated.  It  is  always  best  to  examine  both 
the  NAMELIST  values  portion  of  the  listing  and  the  very  end  of  the  printable  output  for 
error  messages  even  if  the  run  appeared  to  terminate  normally.  Most  of  the  errors  checked 
for  will  occur  during  run  initiation.  Those  that  happen  in  the  course  of  program  execution 
will  cause  the  program  to  attempt  to  terminate  with  a  normal  printout  and  restart  file.  A 
special  Error  Messages  Appendix  (See  Appendix  C)  is  included  with  this  manual  to  facilitate 
resolution  of  program-detected  problems. 

4.9.6  Plotable  Output 

Convergence  information  to  be  plotted  by  an  auxiliary  plot  program  is  also  part  of  the 
available  output  from  the  PARC  code.  If  selected  by  the  L2PLOT  and/or  the  IFXPLT  input 
parameters,  a  convergence  history  File,  which  is  suitable  for  plotting,  is  created  on  Unit  21 
(FT21).  The  value  of  the  parameter  IFXPLT  determines  whether  flux  balance  histories  are 
calculated  and  written  each  iteration.  A  value  of  one  activates  this  option,  whereas  a  value 
of  zero  (default)  deactivates  it.  The  value  of  the  L2PLOT  parameter  determines  whether  L2 
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residual  histories  are  calculated  and  written  each  iteration.  As  with  the  IFXPLT  parameter, 
a  value  of  zero  (the  default)  deactivates  it.  All  information  in  this  file  is  written  unformatted. 
The  first  record  is  always  a  plot  type  that  determines  the  contents  of  each  subsequent  record 
as  follows: 


CODE  RECORD  CONTENTS 

1  N,  MB,  AQ,  Rj,  R2,  R3,  R4,  R5,  Rg 

2  N,  MB,  AQ,  F„  F2,  F3,  F4,  Fs 

3  N,  MB,  AQ,  R|,  R2,  R3,  R4,  R5.  R$,  Fj,  F2,  F3,  F4,  F5 

where  N  is  the  iteration  number,  MB  is  the  block  number,  AQ  is  the  maximum  percentage 
change  in  either  density  or  pressure,  R1...R5  (R1...R4,  for  2-D)  are  the  L2  residuals  for  each 
of  the  conservation  equations  (density,  momentum,  energy)  and  R*  (Rj  for  2-D)  is  the  total 
L2  residual;  and  F1...F5  (Fi...F4,  for  2-D)  are  the  global  conservation  fluxes.  One  record 
is  created  for  each  iteration  so  that  the  total  number  of  records  in  the  file  will  be  the  total 
number  of  iterations  requested  plus  one.  Note  that  use  of  this  option  can  be  very  expensive 
computationally  since  the  L2  residuals  and/or  conservation  fluxes  must  be  calculated  and 
written  every  iteration.  It  is  recommended  that  this  option  only  be  used  when  there  is  good 
cause  for  it  (e.g.,  presentation  of  results  or  questions  about  the  actual  convergence  history). 

Two  data  files  used  by  PLOT3D,'a  NASA  Ames  interactive  postprocessing  program, 
are  written  to  Units  30  and  31  if  input  parameter  IPLOT  has  a  value  of  one.  The  PLOT3D 
grid  input  file  is  on  Unit  31,  and  the  flow-field  input  file  is  on  Unit  30.  The  data  files  are 
written  using  unformatted  writes  and  are  in  PLOT3D  multiblock  format. 

5.0  OPERATION 

This  section  is  intended  to  give  a  brief  overview  of  the  major  steps  involved  in  setting 
up  and  running  the  PARC  code.  Details  on  the  PARC  code  input  parameters  and  related 
background  information  are  contained  in  the  section  on  Usage  Concepts. 

5.1  PARAMETER  STATEMENTS 

Although  every  effort  has  been  made  to  avoid  requiring  the  PARC  code  user  to  routinely 
modify  the  program  itself,  there  is  one  area  in  which  this  is  unavoidable.  Since  standard 
FORTRAN  will  not  allow  dynamic  storage  allocation,  the  user  must  specify  the  necessary 
storage  requirements  through  modifications  to  certain  FORTRAN  PARAMETER  statements. 
One  must  remember  that  a  copy  of  almost  every  such  PARAMETER  statement  appears  in 
almost  every  SUBROUTINE.  The  following  PARAMETER  statements  appear  in  the  PARC 
code: 
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PARAMETER  (MEMORY  =  J  750000) 

PARAMETER  (NIP  =  3800.NM  =  NIP/5) 

with  the  following  parameter  definitions: 

MEMORY  The  maximum  number  of  high-speed  memory  words  available  for  use 
by  the  PARC  code.  It  should  be  adjusted  so  that  the  PARC  code  nearly 
fills  the  memory  available  to  run  your  jobs.  Ordinarily,  the  PARC  code 
uses  27  arrays  (32  when  the  Runge-Kutta  solver  is  used  with  PARC3D). 
The  maximum  number  of  grid  points  is  roughly  (MEMORY  -  150,000 
-  12  NIP)  divided  by  27  (or  32).  When  dividing  a  domain  into  blocks, 
all  blocks  must  meet  this  size  limitation. 

NIP  The  maximum  number  of  nodes  on  any  face  of  any  block.  For  PARC3D 

a  “face”  is  a  boundary  surface;  for  PARC2D  a  “face”  is  a  boundary 
curve. 

NM  The  maximum  number  of  nodes  on  any  edge  of  any  block  (ignored  in 

PARC2D  as  this  is  the  same  as  NIP).  Its  value  of  NIP/5  need  never 
be  changed,  unless  squeezing  in  a  few  more  grid  points  is  critical. 

The  PARC  code  also  has  the  following  PARAMETER  statements,  which  rarely  need 
to  be  changed  from  their  preset  values: 

PARAMETER  (MOS=  100) 

PARAMETER  (MPS  =  10,MBC = 25,MP  =  50) 

PARAMETER  (MXNB  =  99.MXIF  =  500) 

with  the  following  parameter  definitions: 

MOS  The  limit  to  MBORD  (Section  4.3)  and  NUMDT  (Section  4.7). 

MPS  The  limit  to  NPSEG  (Section  4.9). 

MBC  The  limit  to  NJSEG,  NKSEG,  and  NLSEG  (Section  4,8). 

MP  The  limit  to  the  number  of  patches  (Section  4.9). 
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MXNB  The  limit  to  number  of  blocks,  NBLOCK  (Section  4.3). 

MXIF  The  maximum  block-interface  identification  number  (Sections  4.3  and 
4.8). 

5.2  FILE  USAGE 

The  submit  file,  batch  job  file,  or  job  control  file  (whichever  is  preferred)  must  make 
available  (fetch)  appropriate  input  files,  compile,  load,  and  execute  the  source  code  (PARC2D 
or  PARC3D),  and  store  (dispose)  the  appropriate  output  files.  This  file  (the  submit  file)  is 
not  provided  as  part  of  the  code  and  must  be  created  by  the  user.  There  are  three  mandatory 
input  files,  one  of  which  is  the  source  code,  which  must  always  be  present  at  the  start  of  the  run, 

1.  source  code  (either  PARC2D  or  PARC3D); 

2.  restart  file  (assumed  to  be  assigned  to  Unit  2),  which  contains  the  grid  and 
current  solution;  and 

3.  parameter  file  (assumed  to  be  assigned  to  Unit  5),  which  contains  information 
necessary  to 

a.  specify  completely  the  problem  being  solved, 

b.  control  program  execution,  and 

c.  select  desired  input  and  output  options. 

Two  output  files  are  always  created  and  three,  optional,  output  files  can  be  produced 
if  called  for  in  the  inputs.  These  files  are 

1 .  the  new  restart  file  (assigned  to  Unit  4),  which  contains  the  grid  and  the  just- 
calculated  solution; 

2.  the  run  history  file  (assigned  to  Unit  6),  which  contains  a  listing  of  parameter 
inputs,  convergence  information,  a  printed  map  of  selected  portions  of  the 
flow  field,  and  diagnostic  information; 

3 .  residual  and/or  flux  histories  file  (assigned  to  Unit  21)  intended  for  plotting. 

This  file  is  optional  as  determined  by  the  parameter,  EFXPLT,  in  NAMELIST 
INPUTS  (See  Section  4.9);  and 
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4.  PLOT3D  grid  input  file  (assigned  to  Unit  3 1)  and  PLOT3D  flow-field  input 
file  (Unit  30).  These  files  are  optional  as  determined  by  the  parameter  IPLOT 
in  NAMELIST  INPUTS  (See  Section  4.9). 

5.3  RESTART  FILE 

Two  input  data  files  are  required  to  execute  the  PARC  code.  One,  which  is  always  expected 
to  be  on  logical  Unit  2  (FT02),  is  the  restart  file.  It  was  either  created  by  a  prior  run  of  the 
PARC  program  or  assembled  by  the  user’s  initial  condition  and  grid  programs.  The  file  is 
read  by  the  PARC  code  using  unformatted  reads.  The  first  record  contains 

(Record  1)  NCI,  GAMMA 

where  NCI  is  the  iteration  count  associated  with  the  particular  restart  file;  GAMMA  is  the 
ratio  of  specific  heats  (not  used  by  the  PARC  code,  but  by  supporting  postprocessing  computer 
codes).  The  remaining  records  are  required  for  each  grid  block.  The  second  record  contains 
the  index  dimensions  of  the  first  block. 

(Record  2)  JMAX,  KMAX,  LMAX 

The  third  record  contains  the  grid  coordinates  for  the  first  block  in  arrays  X,  Y,  and  Z.  The 
arrays  are  dimensioned  by  (JMAX,  KMAX,  LMAX).  These  arrays  are  written  in  standard 
FORTRAN  order  (column  order). 

(Record  3)  X,  Y,  Z 

The  fourth  record  contains  the  nondimensional  flow  field  for  the  first  block  in  arrays  R, 
RU,  RV,  RW,  and  E,  which  are  the  nondimensional  density,  X-momentum,  Y-momentum, 
Z-momentum,  and  total  energy  per  unit  volume,  respectively.  These  arrays  are  also 
dimensioned  by  (JMAX,  KMAX,  LMAX). 

(Record  4)  R,  RU,  RV,  RW,  E 

Records  two  through  four  are  repeated  as  a  set  once  for  each  grid  block.  The  variable,  LMAX, 
and  the  arrays,  Z  and  RW,  are  omitted  from  restart  files  for  the  2-D  PARC  code. 

5.4  PARAMETER  FILE 

The  other  file,  which  is  always  expected  to  be  on  logical  Unit  5  (FT05),  is  the  parameter 
file.  It  provides  parameter  input  to  the  code  consisting  mainly  of  NAMELISTs.  They  must 
be  in  the  following  order: 
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INPUTS  Appears  always. 

SEQDT  Appears  only  if  NUMDT  is  positive  (See  Section  4.7). 

BLOCK  Appears  always. 

PRTSEG  Appears  only  if  NPSEG  is  positive  (See  Section  4.9). 

BOUNDS  Appears  only  if  NBCSEG  is  equal  to  zero  (See  Section  4.8). 

If  NAMELIST  BOUNDS  does  not  appear,  then  boundary-condition  data  must  appear 
as  formatted  data  in  the  same  location  (See  Section  4.8).  NAMELlSTs  BLOCK,  PRTSEG, 
and  BOUNDS  (or  equivalent  formatted  data)  are  repeated  in  order,  once  for  each  grid  block. 

5.4.1  NAMELIST  INPUTS 

The  following  lists  the  variables  in  NAMELIST  INPUTS  and  their  default  values.  Note 
that  the  variable  IAXISY  is  not  in  the  3-D  PARC  code,  and  the  variable  BETA  is  not  in 
the  2-D  PARC  code. 


PREF 

= 

0.147000E+02 

IAXISY 

= 

1 

TREFR 

s 

0.500000E  +  03 

NBLOCK 

= 

0 

VRAT 

= 

—  0.666667E  +  00 

NMAX 

= 

100 

TSUTH 

= 

0.198600E  +  03 

NC 

= 

-1 

RE 

= 

O.OOOOOOE  +  OO 

NSPRT 

= 

10 

PR 

= 

0.720000E  +  00 

NP 

= 

0 

PRT 

= 

0.900000E  +  00 

IFXPRT 

= 

0 

DIS2 

= 

0.250000E  +  00 

IFXPLT 

= 

0 

DIS4 

= 

0.640000E  4-00 

L2PLOT 

* 

0 

DTCAP 

= 

0.100000E4-04 

IPLOT 

= 

0 

PCQMAX 

= 

0.100000E4-02 

LMODE 

= 

1 

SPLEND 

= 

0.100000E  +  01 

MBORD 

= 

NBLOCK 

SMOO 

= 

0.000000E  4-  00 

NUMDT 

= 

1 

STOPL2 

= 

0.100000E-  11 

IVARDT 

= 

2 

STOPTR 

= 

0.500000E4-01 

ISOLVE 

- 

1 

ALPHA 

= 

0.000000E  4-  00 

IRKORD 

— 

4 

BETA 

= 

0.000000E  4-  00 

IFILTR 

= 

1 

XMACH 

= 

0.O00000E  4-  00 

IBORD 

— 

1,  2,  ...,  MOS 
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5.4.2  NAMELIST  SEQDT 

The  following  lists  the  variables  in  NAMELIST  SEQDT  and  their  default  values.  . 

DTSEQ  =  DTCAP,  0.0,  0.0,  0.0,  ... 

ITERDT  =  1,  0,  0,  0,  ... 

5.4.3  NAMELIST  BLOCK 

The  following  lists  the  variables  in  NAMELIST  BLOCK  and  their  default  values. 

INVISC  =  1,  1,  1 
LAMIN  =  0,  0,  0 
GAMMA  =  1.4 
COFMIX  =  0.09 
DTBLK  =  0.0 
NPSEG  =  0 
NBCSEG  =  0 

5.4.4  NAMELIST  PRTSEG 

The  following  lists  the  variables  in  NAMELIST  PRTSEG  and  their  default  values. 

JKLPI  =  1,  JMAX,  1,  1,  KMAX,  1,  1,  LMAX,  1,  0,  0,  ... 

IPORD  =  2,  1,  0,  0,  ... 

5.4.5  NAMELIST  BOUNDS 

Refer  to  the  usage  section  on  boundary  conditions  (Section  4.8)  and  the  examples  appendix 
(Appendix  E)  for  details  on  the  input  parameters  in  this  NAMELIST.  There  are  no  default 
values  for  these  parameters. 
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NOTES:  1.  Both  the  X-Y  and  J-K  coordinate  systems  are  right-handed  (hence 
strictly  positive  Jacobian). 

I  Ih*  coordinates  of  the  point  A  are  [X(Ja,  Ka),  Y(Ja,  Ka)].  for  example. 

3.  Point  B  is  given  reasonable  coordinates  even  though  it  is  not  a  flow 
field  or  boundary  point. 

4.  If  X,  Y  are  dimensioned  in  feet  and  are  not  explicitly 
nondimensionalized,  then  Xref  =  1  ft;  if  X,  Y  are  explicitly 
nondimensionalized  by  the  cylinder's  diameter,  then  Xref  =  2  ft. 

5.  Kb-i  and  JM  AX  -  Jc  must  be  greater  than  or  equal  to  three;  for  example 

-  Kb  and  Ja  - 1  are  not  so  restricted;  these  indices  do  not  bound  flow- 
field  points. 


Figure  1.  Grid  concepts. 


9  l"68*Hl'DQ3V 


Segment 

Number 

J-Index 

K-Indices 

Sign  of 

Boundary  Conditions 

Minimum 

Maximum 

Normal 

Type 

Pressure 

Temp. 

1 

1 

1 

7 

1 

-10 

— 

— 

2 

9 

2 

6 

-1 

0 

0.0047 

1.0 

K-Constant  Index  Class 


II 

K-lndex 

K-ln 

dices 

Sign  of 

Boundary  Conditions 

Minimum 

Maximum 

Normal 

Type 

Pressure 

Temp. 

_ 

1 

2 

2 

1 

50 

— 

— 

LJ 

1 

3 

9 

1 

61 

— 

LJ 

7 

2 

9 

-1 

-10 

— 

— 

1 

2 

3 


Figure  2.  Boundary  segment  specification  example. 
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b.  J-Patches 


c.  K-Patches 

Figure  3.  Patch  generation  example. 
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Values  of  iKLPI  01, 12, 13) 


Figure  4.  Flow-field  print  segmentation. 
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ALPHA 

BETA 

COFMIX 

DISZ 

DIS4 

DTBLK 

DTCAP 

DTSEQ 

GAMMA 

IAXISY 

TBORD 


APPENDIX  A 

NAMELIST  PARAMETER  GLOSSARY 

Angle  of  attack  of  the  free  stream.  Used  only  for  the  free-stream  boundary 
condition  (Type  7)  and  as  output  to  one  of  the  PLOT3D  files  (See  IPLOT). 
(NAMELIST  INPUTS)  (Section  4.8). 

Angle  of  sideslip  of  the  free  stream.  Used  only  for  the  3-D  free-stream 
boundary  condition  (Type  7)  and  as  output  to  one  of  the  PLOT3D  files  (See 
IPLOT).  (NAMELIST  INPUTS)  (Section  4.8). 

The  value  to  be  used  for  the  turbulent  mixing  coefficient  for  free  shear  layers 
(default  0.09).  (NAMELIST  BLOCK)  (Section  4.5). 

The  coefficient  of  the  second-order  artificial  viscosity.  (NAMELIST  INPUTS) 
(Section  4.6). 

The  coefficient  of  the  fourth-order  artificial  viscosity.  (NAMELIST  INPUTS) 
(Section  4.6). 

A  positive  value  overrides  the  global  DTCAP  for  the  associated  grid  block. 
(NAMELIST  BLOCK)  (Sections  4.7  and  4.3). 

Maximum  time-step  size  allowed  during  a  run.  (NAMELIST  INPUTS)  (Section 
4.7). 

A  vector  whose  elements  specify  a  sequence  of  DTCAPs.  (NAMELIST 
SEQDT)  (Section  4.7). 

The  ratio  of  specific  heats  at  the  reference  conditions.  (Default  value  is  1 .4) 
(NAMELIST  BLOCK)  (Section  4.5). 

Selection  parameter  for  the  axisymmetric  or  2-D  form  of  the  Navier-Stokes 
equations.  (Zero  selects  2-D,  one  selects  axisymmetric.)  (NAMELIST  INPUTS) 
(Section  4.5). 

An  integer  vector  whose  elements  specify  the  sequence  of  grid-block  processing. 
(MBORD  elements)  (NAMELIST  INPUTS)  (Section  4.3). 
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IFILTR  Selects  spectral  radius  scaling  method  for  the  artificial  viscosity  coefficients. 

(One  selects  Jameson-style;  two  selects  cell  Reynolds  number  modification; 
two  selects  isotropic  and  unidirectional  blending.)  (NAMELIST  INPUTS) 
(Section  4.6). 

IFXPLT  Toggles  the  construction  of  a  plot  file  (Unit  21)  for  flux  balance  histories. 
(Zero  doesn’t;  one  does.)  (NAMELIST  INPUTS)  (Section  4.9). 

IFXPRT  Toggles  the  inclusion  of  flux  balance  histories  in  the  printed  output.  (Zero 
excludes;  one  includes.)  (NAMELIST  INPUTS)  (Section  4.9). 

INTERJ  Integer  vector  that  specifies  the  interface  identification  number  for  each  J- 
constant  boundary  segment  that  forms  part  of  an  overlapped  boundary. 
(NJSEG  elements)  (NAMELIST  BOUNDS)  (Sections  4.8  and  4.3). 

INTERK  Integer  vector  that  specifies  the  interface  identification  number  for  each  K- 
constant  boundary  segment  that  forms  part  of  an  overlapped  boundary. 
(NKSEG  elements)  (NAMELIST  BOUNDS)  (Sections  4.8  and  4.3). 

INTERL  Integer  vector  that  specifies  the  interface  identification  number  for  each  L- 
constant  boundary  segment  that  forms  part  of  an  overlapped  boundary. 
(NLSEG  elements)  (NAMELIST  BOUNDS)  (Sections  4.8  and  4.3). 

INVISC  An  integer  vector  whose  elements  toggle  viscous  effects  in  the  corresponding 
coordinate  direction.  (Zero  selects  inviscid;  one  selects  viscosity.)  (NAMELIST 
BLOCK)  (Section  4.5). 

IPLOT  Toggles  the  construction  of  PLOT3D  input  files  (grid  on  Unit  31,  flow  field 

on  Unit  30).  (Zero  doesn’t;  one  does.)  (NAMELIST  INPUTS)  (Section  4.9). 

IPORD  An  integer  array  whose  elements  determine  the  order  in  which  the  indices  are 

used  in  printing  each  segment  given  by  JKLPI.  (NAMELIST  PRTSEG) 
(Section  4.9). 

IRKORD  Value  selects  the  order  of  the  pseudo-Runge-Kutta  algorithm;  has  no  effect 
otherwise.  (NAMELIST  INPUTS)  (Section  4.5). 

■SOLVE  Value  selects  the  solution  algorithm.  (One  selects  pentadiagonal;  zero  selects 
steady-state  Runge-Kutta;  - 1  selects  time-accurate  Runge-Kutta)  (NAMELIST 
INPUTS)  (Section  4.5). 
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ITERDT 

IVARDT 

JKH1GH 

JKLOW 

JKLPI 

JLHIGH 

JUNE 

JLLOW 

JSIGN 

JTYPE 

KJHJGH 

KJLOVV 


An  integer  vector  whose  elements  specify  a  sequence  of  iteration  limits  that 
are  paired  up  with  the  elements  of  DTSEQ.  (NAMELIST  SEQDT)  (Section 
4.7). 

The  value  of  this  parameter  selects  either  the  time-accurate  mode  or  one  of 
the  variable  time-step  options  for  the  pentadiagonal  algorithm.  (NAMELIST 
INPUTS)  (Section  4.7). 

Integer  vector  that  specifies  the  largest  K-index  for  each  J-constant  boundary 
segment.  (NJSEG  elements)  (Section  4.8). 

Integer  vector  that  specifies  the  smallest  K-index  for  each  J-constant  boundary 
segment.  (NJSEG  elements)  (Section  4.8). 

An  integer  array  whose  elements  specify  the  coordinate  limits  and  increments 
for  each  segment  of  printed  output  called  for  by  NPSEG.  (NAMELIST 
PRTSEG)  (Section  4.9). 

Integer  vector  that  specifies  the  largest  L-index  for  each  J-constant  boundary 
segment.  (NJSEG  elements)  (Section  4.8). 

Integer  vector  that  specifies  the  J-indices  of  each  of  the  J-constant  boundary 
segments.  (NJSEG  elements)  (NAMELIST  BOUNDS)  (Section  4.8). 

Integer  vector  that  specifies  the  smallest  L-index  for  each  J-constant  boundary 
segment.  (NJSEG  elements)  (Section  4.8). 

Integer  vector  that  specifies  the  sign  of  the  surface  normal  for  each  J-constant 
boundary  segment.  (NJSEG  elements)  (NAMELIST  BOUNDS)  (Section  4.8). 

Integer  vector  that  specifies  the  appropriate  boundary-condition-type  code 
for  each  J-constant  boundary  segment.  (NJSEG  elements)  (NAMELIST 
BOUNDS)  (Section  4.8). 

Integer  vector  that  specifies  the  largest  J-index  for  each  K-constant  boundary 
segment.  (NKSEG  elements)  (Section  4.8). 

Integer  vector  that  specifies  the  smallest  J-index  for  each  K-constant  boundary 
segment.  (NKSEG  elements)  (Section  4.8). 
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KLHIGH  Integer  vector  that  specifies  the  largest  L-index  for  each  K-constant  boundary 
segment.  (NKSEG  elements)  (Section  4.8). 

KLINE  Integer  vector  that  specifies  the  K-indices  of  each  of  the  K-constant  boundary 

segments.  (NKSEG  elements)  (NAMELIST  BOUNDS)  (Section  4.8). 

KLLOW  Integer  vector  that  specifies  the  smallest  L-index  for  each  K-constant  boundary 
segment.  (NKSEG  elements)  (Section  4.8). 

KSIGN  Integer  vector  that  specifies  the  sign  of  the  surface  normal  for  each  K-constant 

boundary  segment.  (NKSEG  elements)  (NAMELIST  BOUNDS)  (Section  4.8). 

KTYPE  Integer  vector  that  specifies  the  appropriate  boundary-condition-type  code 
for  each  K-constant  boundary  segment.  (NKSEG  elements)  (NAMELIST 
BOUNDS)  (Section  4.8). 

L2PLOT  Toggles  the  construction  of  a  plot  file  (Unit  21)  for  L2  residual  histories.  (Zero 
doesn’t;  one  does.)  (NAMELIST  INPUTS  (Section  4.9). 

LAMIN  An  integer  vector  whose  elements  toggle  turbulent  viscosity.  (NAMELIST 
BLOCK)  (Section  4.5). 

LJHIGH  Integer  vector  that  specifies  the  largest  J-index  for  each  L-constant  boundary 

segment.  (NLSEG  elements)  (Section  4.8). 

LJLOW  Integer  vector  that  specifies  the  smallest  J-index  for  each  L-constant  boundary 
segment.  (NLSEG  elements)  (Section  4.8). 

LKHIGH  Integer  vector  that  specifies  the  largest  K-index  for  each  L-constant  boundary 
segment.  (NLSEG  elements)  (Section  4.8). 

LKLOW  Integer  vector  that  specifies  the  smallest  K-index  for  each  L-constant  boundary 
segment.  (NLSEG  elements)  (Section  4.8). 

LLINE  Integer  vector  that  specifies  the  L-indices  of  each  of  the  L-constant  boundary 

segments.  (NLSEG  elements)  (NAMELIST  BOUNDS)  (Section  4.8). 

LMODE  Toggles  metric  recalculations  for  blocked  grids.  (One  doesn’t;  two  does.) 
(NAMELIST  INPUTS)  (Section  4.3). 
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LSIGN 

LTYPE 

MBC 

MBORD 

MEMORY 

MOS 

MP 

MPS 

MXNB 

NBCSEG 

NBLOCK 

NC 

NIP 


Integer  vector  that  specifies  the  sign  of  the  surface  normal  for  each  L-constant 
boundary  segment.  (NLSEG  elements)  (NAMELIST  BOUNDS)  (Section  4.8). 

Integer  vector  that  specifies  the  appropriate  boundary-condition-type  code 
for  each  L-constant  boundary  segment.  (NLSEG  elements)  (NAMELIST 
BOUNDS)  (Section  4.8). 

Specifies  the  maximum  values  of  NJSEG,  NKSEG,  and 
NLSEG.(PARAMETER  statements)  (Section  5. 1). 

The  length  of  the  sequence  given  by  IBORD.  (NAMELIST  INPUTS)  (Section 
4.3). 

Specifies  the  maximum  number  of  words  of  high-speed  memory  available  to 
the  PARC  code.  (PARAMETER  statements)  (Section  5.1). 

Specifies  the  maximum  values  of  MBORD  and  NUMDT.  (PARAMETER 
statements)  (Section  5.1). 

Specifies  the  maximum  number  of  patches  per  grid  block. (PARAMETER 
statements)  (Section  5.1). 

Specifies  the  maximum  value  of  NPSEG.  (PARAMETER  statements)  (Section 
5.1). 

Specifies  the  maximum  number  of  grid  blocks.  (PARAMETER  statements) 
(Section  5.1). 

Toggles  the  method  of  boundary-condition  specification.  (Zero  selects 
NAMELIST  BOUNDS;  positive  value  selects  formatted  input  and  determines 
the  total  number  of  boundary  segments.)  (NAMELIST  BLOCK)  (Section  4.8). 

The  number  of  blocks.  (NAMELIST  INPUTS)  (Section  4.3). 

Nonnegative  value  resets  the  iteration  count  to  the  value  specified  by  this 
parameter.  (NAMELIST  INPUTS)  (Section  4.7). 

Specifies  the  maximum  number  of  grid  points  on  any  face  of  any  block. 
(PARAMETER  statements)  (Section  5.1). 
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NJSEG 

NKSEG 

NLSEG 

NM 

NMAX 

NP 

NPSEG 

NSPRT 

NUMDT 

PCQMAX 

PR 

PREF 

PRESSJ 


The  total  number  of  boundary  segments  for  the  J-constant  coordinate  class. 
(NAMELIST  BOUNDS)  (Section  4.8). 

The  total  number  of  boundary  segments  for  the  K-constant  coordinate  class. 
(NAMELIST  BOUNDS)  (Section  4.8). 

The  total  number  of  boundary  segments  for  the  L-constant  coordinate  class. 
(NAMELIST  BOUNDS)  (Section  4.8). 

Specifies  the  maximum  number  of  grid  points  on  any  edge  of  any  block. 
(PARAMETER  statements)  (Section  5.1). 

Maximum  number  of  iterations  to  be  preformed  during  the  current  execution 
of  the  PARC  program.  (NAMELIST  INPUTS)  (Section  4.7). 

Specifies  the  print  frequency  of  selected  flow-field  values.  (NAMELIST 
INPUTS)  (Section  4.9). 

Specifies  the  number  of  flow-field  segments  in  the  associated  NAMELIST 
PRTSEG.  (NAMELIST  BLOCK)  (Section  4.9). 

Specifies  the  print  frequency  of  the  convergence  history.  (NAMELIST 
INPUTS)  (Section  4.9). 

Toggles  time-step  sequencing.  A  positive  value  selects  this  option  and  provides 
the  number  of  sequencing  steps.  (NAMELIST  INPUTS)  (Section  4.7). 

Maximum  percent  change  in  either  density  or  pressure  allowed  during  an 
iteration.  Recommended  range  is  between  1  and  25.  (NAMELIST  INPUTS) 
(Section  4.7). 

Prandtl  number  at  reference  conditions.  (NAMELIST  INPUTS)  (Section  4.5). 

Scaling  factor  used  to  dimensionalize  pressures  in  the  printed  output. 
(NAMELIST  INPUTS)  (Section  4.9). 

Vector  that  specifies  certain  auxiliary  variables  (usually  pressure)  for  each  J- 
constant  boundary  segment.  (NJSEG  elements)  (NAMELIST  BOUNDS) 
(Section  4.8). 
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PRESSK 

PRESSL 

PRT 

RE 

SMOO 

SPLEND 

STOPL2 

STOPTR 

TEMPJ 

TEMPK 

TEMPL 


Vector  that  specifies  certain  auxiliary  variables  (usually  pressure)  for  each  K- 
constant  boundary  segment.  (NKSEG  elements)  (NAMELIST  BOUNDS) 
(Section  4.8). 

Vector  that  specifies  certain  auxiliary  variables  (usually  pressure)  for  each  L- 
constant  boundary  segment.  (NLSEG  elements)  (NAMELIST  BOUNDS) 
(Section  4.8). 

Turbulent  Prandtl  number.  (NAMELIST  INPUTS)  (Section  4.5). 

Reynolds  number  based  on  the  reference  density,  speed  of  sound,  length,  and 
viscosity.  There  is  no  default  for  viscous  flows.  (NAMELIST  INPUTS) 
(Section  4.5). 

Used  only  with  the  Runge-Kutta  solver  (i.e.,  when  ISOLVE  is  0  or  - 1).  A 
positive  value  implements  the  implicit  residual  smoothing  option.  (NAMELIST 
INPUTS)  (Section  4.6). 

Artificial  viscosity  blending  control.  A  value  between  0  and  1  gives  a  weighted 
average  of  isotropic  and  split-direction  artificial  dissipation.  (NAMELIST 
INPUTS)  (Section  4.6). 

Value  of  the  L2  residual  at  which  the  current  execution  of  the  PARC  code 
is  to  be  terminated.  (NAMELIST  INPUTS)  (Section  4.7). 

The  amount  of  computer  time  (in  seconds)  before  the  program  execution  time 
limit  is  reached  at  which  normal  program  termination  is  to  commence. 
(NAMELIST  INPUTS)  (Section  4.7). 

Vector  that  specifies  certain  auxiliary  variables  (usually  temperature)  for  each 
J-constant  boundary  segment.  (NJSEG  elements)  (NAMELIST  BOUNDS) 
(Section  4.8). 

Vector  that  specifies  certain  auxiliary  variables  (usually  temperature)  for  each 
K-constant  boundary  segment.  (NKSEG  elements)  (NAMELIST  BOUNDS) 
(Section  4.8). 

Vector  that  specifies  certain  auxiliary  variables  (usually  temperature)  for  each 
L-constant  boundary  segment.  (NLSEG  elements)  (NAMELIST  BOUNDS) 
(Section  4.8). 
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TREFR 

TSUTH 

VRAT 

XMACH 


Reference  temperature  in  degrees  Rankine.  The  only  uses  are  to 
nondimensionalize  the  Sutherland  temperature  (TSUTH)  and  to  dimensionalize 
temperatures  in  the  printed  output.  (NAMELIST  INPUTS)  (Sections  4.5  and 
4.9). 

Sutherland  viscosity  law  temperature  (frequently  denoted  as  S)  in  degrees 
Rankine.  (NAMELIST  INPUTS)  (Section  4.5). 

Ratio  of  the  second  coefficient  of  viscosity  to  the  first  coefficient  of  viscosity. 
(Default  is  -  2/3,  which  is  Stokes  hypothesis.)  (NAMELIST  INPUTS)  (Section 
4.5). 

Mach  number  of  the  free  stream.  Used  only  for  the  free-stream  boundary 
condition  (Type  7)  and  as  output  to  one  of  the  PLOT3D  files  (See  IPLOT). 
(NAMELIST  INPUTS)  (Section  4.8). 
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APPENDIX  B 
TRANSPORTABILITY 

The  PARC  code  is  written  in  CRAY  FORTRAN  and  uses  some  CRAY  extensions  and 
library  routines  that  might  require  modification  to  implement  on  some  other  scientific 
computers.  Most  notably,  they  use  POINTER  statements  to  dynamically  allocate  arrays.  These 
could  be  replaced  by  writing  a  subroutine  to  allocate  the  arrays  and  by  passing  all  the  arrays 
as  arguments.  The  CRAY  library  subroutines  used,  and  their  functions  are  listed  as  follows: 

RELEASE  Releases  buffers  used  by  an  input  file  that  are  no  longer  needed.  The 
call  to  this  routine  can  be  deleted. 

TREMAIN  Provides  the  time  remaining  in  the  computer  job. 

CVMGT  This  function  has  three  arguments,  the  third  being  a  logical.  If  the  logical 
is  true,  the  first  function  is  returned;  if  false,  the  second.  The  function 
is  an  aid  to  CRAY  vectorization  and  can  be  replaced  with  IF  statements. 

PACK21  Packs  two  words  into  one  by  truncating  the  least  significant  bits. 

PACK21  is  used  to  compress  data  before  writing  to  temporary  external 
storage.  This  reduces  such  output  by  a  factor  of  two.  This  is  a  significant 
savings  for  ordinary  disk  storage,  but  is  less  important  if  a  CRAY  Solid- 
State  Storage  Device  (SSD)  is  available.  The  use  of  this  routine  is  not 
essential. 

EXPAND21  Reverses  the  effect  of  PACK21,  obviously  with  loss  of  precision. 

EXPAND21  is  used  to  expand  packed  data  after  reading  it.  This  reduces 
such  input  by  a  factor  of  two.  The  use  of  this  routine  is  not  essential 
(unless  PACK21  is  also  used). 

OPENMS  This  routine  opens  for  input  and  output  a  variable  length  direct-access 
file.  Equivalent  methods  of  direct-access  read  and  write  routines  exist 
for  most  scientific  computers. 

READMS  Reads  a  record  from  a  variable  length  direct-access  file. 

WR1TMS  Writes  a  record  to  a  variable  length  direct-access  file. 

CLOSMS  This  routine  closes  a  variable  length  direct-access  file. 
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APPENDIX  C 
ERROR  MESSAGES 

A  limited  amount  of  error  checking  is  performed  by  the  PARC  code.  Most  of  this  is 
confined  to  the  detection  of  input  problems.  Execution  error  detection  is  intended  to  initiate 
an  orderly  end  of  the  run  when  a  gross  error  occurs.  The  error  messages  printed  on  Unit 
6  (FT06)  and  explanations  of  their  meanings  are  listed  in  this  appendix  in  alphabetical  order. 
A  lowercase  word  (e.g.,  “value”)  is  used  wherever  a  numerical  value  would  be  printed  and 
the  lowercase  word  "name”  is  used  wherever  a  variable’s  name  would  be  printed. 

*****INTERFACE  USAGE  NUMBER  IS  INCORRECT  FOR  INTERFACE  value***** 

This  message  will  be  caused  by  violating  one  of  the  following  six  rules: 

1.  Interface  numbers  must  be  in  pairs. 

2.  Only  Types  70,  71,  73,  and  77  boundary  conditions  can  have  interface  numbers. 

3.  A  Type  70  boundary  condition  must  be  paired  with  a  Type  70  boundary  condition 
and  both  boundaries  must  have  the  same  number  of  points. 

4.  A  Type  71  boundary  condition  must  be  paired  with  either  a  Type  71  or  73  boundary 
condition. 

5 .  A  Type  73  boundary  condition  must  be  paired  with  a  Type  71  boundary  condition. 

6.  A  Type  77  boundary  condition  must  be  paired  with  a  Type  77  boundary  condition. 

*****  INVALID  ***** 

If  an  invalid  boundary-condition  type  has  been  specified,  this  message  will  appear  as  its 
description,  and  program  execution  will  terminate. 

INVALID  VALUE  FOR  SPLEND  =  value 

The  value  of  SPLEND  must  be  greater  or  equal  to  zero  and  less  than  or  equal  to  one. 

NEWTON  ITERATION  FOR  PRESSURE  IN  SUBROUTINE  INSUB  FAILED  TO 
CONVERGE 
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J,  K,  L,  ID,  P,  PP  =  value,  value,  value,  value,  value,  value 

This  error  terminates  execution  of  the  PARC  code  with  no  restart  file  created.  The  variables 
on  the  second  line  have  the  following  meanings: 

J,  K,  L  grid  coordinates  for  the  point  in  error; 

ID  boundary  identifier,  the  numbers  1,  2,  and  3  are  associated  with  J-,  K-, 

and  L-constant  boundaries; 

P  pressure  on  the  boundary;  and 

PP  pressure  just  off  the  boundary. 

Occurrence  of  this  error  condition  almost  always  indicates  an  incompatibility  between 
a  boundary-condition  value  and  the  interior  flow.  First  try  lowering  the  value  of  DTCAP 
(say  by  half)-  If  this  condition  happens  on  the  initial  run  of  a  flow  simulation,  it  can  usually 
be  cleared  up  by  taking  more  care  in  the  generation  of  initial  conditions. 

PARAMETER  MOS  MUST  BE  INCREASED  TO  >  OR  =  MBORD. 

A  block  processing  sequence  longer  than  allowed  has  been  specified.  Either  the  sequence 
will  have  to  be  shortened  or  else  the  value  of  the  PARAMETER,  MOS,  will  have  to  be  changed 
everywhere  it  occurs. 

PATCH  ERROR: 

This  message  will  then  be  followed  by  one  of  the  following  lines  for  PARC3D: 

J-PATCH  AND  K-PATCH  WITH  NO  L-PATCH 
K-PATCH  AND  L-PATCH  WITH  NO  J-PATCH 
J-PATCH  AND  L-PATCH  WITH  NO  K-PATCH 
J-PATCH  WITH  NO  K-PATCH  OR  L-PATCH 
K-PATCH  WITH  NO  J-PATCH  OR  L-PATCH 
L-PATCH  WITH  NO  J-PATCH  OR  K-PATCH 

And  then  the  patch  mismatch  information, 

IN  REGION  BOUNDED  BY  THE  J,  K,  L  POINTS:  (Jmin,  Kmin,  Limn),  (Jmax,  Kmax, 
Lmax) 
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For  PARC2D  applications,  the  first  line  will  be  followed  by  one  of 

J-PATCH  HAS  NO  CORRESPONDING  K-PATCH 
K-PATCH  HAS  NO  CORRESPONDING  J-PATCH 

And  then  the  patch  mismatch  information, 

IN  REGION  BOUNDED  BY  THE  J,  K  POINTS:  (Jmin,  Kmin),  (Jin ax,  Kmax) 

As  mentioned  in  the  Output  section  (Section  4.9),  this  information  in  combination  with 
the  grid  patch  summary  should  provide  clues  to  the  boundary  specification  error  that  produced 
this  error  condition.  For  example,  consider  the  hypothetical  fluid  flow  problem  depicted  in 
Fig.  C-  la  and  suppose  the  printed  echo  of  the  BOUNDS  NAMELIST  input  were 


KSEG 

KLINE 

KJLOW 

KJHIGH 

1 

1 

10 

13 

2 

9 

1 

13 

3 

5 

1 

7 

JSEG 

JLINE 

JKLOW 

JKHIGH 

1 

7 

2 

4 

2 

1 

6 

8 

3 

13 

2 

8 

KYTPE 

KSIGN 

PRESSK 

TEMPK 

60 

1 

0.0 

0.0 

61 

-1 

0.0 

0.5 

60 

1 

0.0 

0.0 

JTYPE 

JSIGN 

PRESS! 

TEMPI 

60 

1 

0.0 

0.0 

0 

1 

0.7143 

1.0 

0 

-1 

0.7 

1.0 

Note  that  the  value  of  KJLOW(l)  is  in  error.  (It  should  be  7.)  This  input  would  create  the 
grid  patches  shown  in  Fig.  C-lb  and  c,  which  would  cause  the  following  error  message  to 
be  printed: 


*****pATCH  ERROR; 

J-PATCH  HAS  NO  CORRESPONDING  K-PATCH 
IN  REGION  BOUNDED  BY  THE  J,  K  POINTS: 
(8,2),  (10,5) 


This  would  be  listed  just  after  the  grid  patch  table  as  follows: 


J-PATCHES 

MINIMUM 

MAXIMUM 

J 

K 

J 

K 

1 

8 

2 

12 

5 

2 

2 

6 

12 

8 
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K-PATCHES 

MINIMUM 

MAXIMUM 

J 

K 

J 

K 

1 

2 

6 

9 

8 

2 

10 

2 

12 

8 

Examination  of  these  listings  (if  necessary,  including  construction  of  diagrams  similar 
to  those  of  Fig.  C-l)  leads  to  the  conclusion  that  the  incorrect  grid  patch  is  K-patch  Number 
1 .  This  must  be  caused  by  an  incorrect  boundary  specification  for  K-segment  1  or  3.  Finally 
examination  of  these  segments’  indices  reveals  that  the  lower  J-index  of  K-segment  Number 
1  is  incorrect. 

RANGE  ERROR: 

This  message  will  then  be  followed  by  one  of  the  following  lines  depending  on  whether 
a  scalar  parameter  or  a  vector  parameter,  respectively,  is  in  error: 


name  =  value  IS  OUT  OF  RANGE  (minimum,  maximum) 
name(index)  =  value  IS  OUT  OF  RANGE  (minimum,  maximum) 

where  “name”  is  the  symbolic  name  of  the  input  parameter  (e.g.,  JMAX),  “value”  is  the 
input  value  of  this  parameter,  “minimum”  and  “maximum”  are  the  smallest  and  largest, 
respectively,  values  allowed  for  this  parameter,  and  “index”  is  the  element  number  of  the 
parameter  vector  that  is  in  error.  This  error  condition  only  occurs  during  program  initiation 
for  certain  input  parameters  that  are  checked  for  valid  values.  Correction  of  these  errors 
is  normally  self-explanatory. 

STOPPING:  AT  ITERATION  NUMBER:  Iteration 

THE  TIME-STEP  IS  SMALLER  THAN  THE  MINIMUM:  time-step 

This  error  message  usually  occurs  when  the  PARC  code  would  like  to  “blowup”  but 
can’t  because  of  the  time-step  limiting  feature  of  the  program.  The  iteration  count  is  given 
by  “iteration”  and  the  minimum  allowed  time-step  size  (10~7  as  set  by  DTMIN  in  a  DATA 
statement  in  SUBROUTINE  MAXDT)  is  given  by  “time-step.”  This  error  allows  the  code 
to  terminate  in  a  normal  fashion,  at  this  iteration,  with  printed  output  and  a  restart  file. 
However,  the  restart  file  is  usually  only  good  for  plots  and  not  for  restarting  the  calculation. 
In  most  cases  this  condition  indicates  that  the  value  of  the  input  parameter  DTCAP  is  too 
large.  Thus,  restarting  from  the  previous  restart  file  with  a  smaller  value  of  DTCAP  should 
be  attempted.  This  error  can  also  arise  if  boundary  conditions  are  in  error  or  are  very  much 
different  from  the  interior  flow  conditions. 
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STOPPING  IN  BCAVG,  NPTS  =  value  WHY  ARE  YOU  TRYING  TO  AVERAGE  LESS 
THAN  2  POINTS? 

An  averaging  boundary  condition  has  been  specified,  and  the  number  of  points  to  be 
averaged  is  less  than  two.  Either  the  boundary-condition  type  or  the  range  of  indices  has 
been  specified  incorrectly. 

STOPPING  IN  BLOCK  block— DENSITIES  AND/OR  PRESSURES  ARE  NONPOSITIVE 
NC  =  iteration 

J  K  L  DENSITY  PRESSURE 
j  k  1  density  pressure 

The  values  symbolized  by  the  lowercase  letters  are  continued  to  include  all  such  points 
or  until  100  occurrences  happen.  The  densities  and  pressures  are  checked  at  the  end  of  each 
iteration  to  determine  if  any  are  nonpositive  (a  physically  unrealistic  and  an  unrecoverable 
error).  If  any  are,  then  a  normal  termination  of  the  program  execution  is  attempted.  The 
restart  file  generated  is  useful  only  for  plotting  purposes.  This  error  rarely  occurs  and  typically 
is  recovered  from  in  the  same  manner  as  described  in  the  “THE  TIME-STEP  IS 
SMALLER...”  error  above. 

STOPPING— INVALID  BC,  JUNE  =  value 
STOPPING— INVALID  BC,  KLINE  =  value 
STOPPING— INVALID  BC,  LLINE  =  value 

The  first  of  these  three  messages  is  caused  by  specifying  a  Type  81  boundary  condition 
for  a  J-constant  boundary.  The  second  digit  of  the  averaging  boundary  condition  specifies 
the  index  over  which  the  average  is  to  be  calculated.  Obviously,  the  average  is  not  to  be  over 
the  constant-value  index.  Similarly,  the  second  message  is  caused  by  specifying  a  Type  82 
boundary  condition  for  a  K-constant  boundary;  and  the  third  message  is  caused  by  specifying 
a  Type  83  boundary  condition  for  an  L-constant  boundary. 

STOPPING— JACOBIANS  ARE  NONPOSITIVE 

J  K  L  JACOBIAN 

j  k  1  Jacobian 

The  values  symbolized  by  the  lowercase  letters  are  continued  to  include  all  such  points 
or  until  100  occurrences  happen.  This  error  condition  either  indicates  that  some  of  the  grid 
lines  cross  or  collapse  to  a  single  line,  or  that  the  physical  coordinate  system  (X,  Y,  Z)  and 
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the  computational  coordinate  system  (J,  K,  L)  have  different  handedness.  The  grid  must 
be  “fixed.” 

STOPPING— L2  RESIDUAL  HAS  CONVERGED  TO  SPECIFIED  LEVEL  L2 
RESIDUAL:  level  ITERATION  NUMBER:  iteration 

This  is  not  really  an  error  message.  It  indicates  that  the  L2  residual  has  decreased  to  below 
the  level  specified  by  the  input  parameter  STOPL2.  Normal  print  and  restart  files  are  generated. 

STOPPING— RE  MUST  BE  INPUT  FOR  VISCOUS  FLOWS 

Basically  self-explanatory,  the  Reynolds  number,  RE,  must  be  provided  for  viscous  flows 
(i.e.,  when  LAMIN  has  one  or  more  nonzero  elements). 

STOPPING— TIME  REMAINING  IS  time  SECONDS 

L2  RESIDUAL:  level  ITERATION  NUMBER:  iteration 

This  is  not  really  an  error  message.  It  indicates  that  the  time  remaining  is  less  than  that 
specified  by  the  input  parameter  STOPTR.  Normal  print  and  restart  files  are  generated. 

STOPPING— TOO  MANY  B.C’S 

INCREASE  ‘MBC’  PARAMETER 

This  error  condition  is  only  detected  if  the  boundary  conditions  are  input  through  a 
formatted  read  rather  than  through  NAMELIST  BOUNDS  (See  Section  4.8).  It  declares  that 
the  boundary  segment  vectors  are  DIMENSIONed  too  small  for  the  number  of  segments 
supplied  in  the  input.  Change  the  value  of  the  MBC  parameter  in  every  PARAMETER 
statement  in  which  it  occurs  to  a  value  large  enough  to  accommodate  the  maximum  number 
of  segments. 

STOPPING— TOO  MANY  SEGMENTS 
INCREASE  ‘MP’  PARAMETER 

The  number  of  patches  generated  for  one  or  more  of  the  patch  classes  (See  Section  4.9) 
is  greater  than  allowed  for  by  the  value  of  the  parameter  MP.  Since  the  maximum  number 
of  patches  is  usually  not  known  prior  to  program  execution,  try  doubling  the  current  value 
of  MP  in  all  of  the  PARAMETER  statements  in  which  it  occurs.  To  make  optimal  use  of 
memory,  this  parameter  should  be  adjusted  to  reflect  the  maximum  number  of  patches  in 


91 


AEDC-TR-89-1  5 


any  of  the  coordinate  classes  as  given  by  the  patch  tabulation  in  the  printed  output  of  an 
initial,  short,  run.  Note  that  this  error  frequently  indicates  that  some  of  the  boundaries  have 
been  misspecified. 

UNDEFINED  OPTION  IFILTR  =  value 

The  specified  value  for  IFILTR  is  invalid.  Specify  a  valid  value  (1,  2,  or  3). 
UNDEFINED  OPTION  ISOLVE  =  value 


The  specified  value  for  ISOLVE  is  invalid.  Specify  a  valid  value  (1,  0,  or  -1). 

*****  WARNING — PREF  DEFAULTED  TO  14.7  PSI 

This  message  is  self-explanatory.  It  warns  the  user  that  the  reference  pressure  was  not 
specified  and  that  the  default  value  will  be  used.  This  only  affects  the  printed  pressure  output. 

*****WARNING— TREFR  DEFAULTED  TO  500  DEG  R 

This  message  is  self-explanatory.  It  warns  the  user  that  the  reference  temperature  was 
not  specified  and  that  the  default  value  will  be  used.  This  affects  the  printed  temperature 
output  and  the  Sutherland  viscosity  law,  if  the  simulated  flow  is  viscous. 
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Inflow 
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Vs 


c.  K-Patches 

Figure  C-l.  Patch  error  example. 
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APPENDIX  D 

PARC  CODE  VERSION  DIFFERENCES 

This  Appendix  is  intended  to  give  a  brief  overview  of  the  important  usage  differences 
between  the  version  of  the  PARC  code  described  in  the  previous  PARC  code  technical  report 
(AEDC-TR-87-24)  and  the  version  covered  in  this  technical  report. 

D-1.0  DIFFERENCES  IN  CAPABILITIES 

Four  major  new  enhancements  have  been  added  to  the  PARC  code,  grid  blocking,  a 
selection  of  artificial  dissipation  models,  a  time-accurate  psuedo-Runge-Kutta  algorithm,  and 
additional  boundary  conditions. 

D-l.l  GRID  BLOCKING 

Grid  blocking  was  incorporated  into  the  PARC  code  primarily  to  circumvent  high-speed 
computer  memory  limitations.  It  also  simplifies  grid  generation  about  complex  geometries 
and  admits  grid-embedding  techniques.  Communication  between  grid  blocks  is  accomplished 
through  the  overlapping  of  grids.  Although  the  PARC  code  permits  block  interfaces  that 
do  not  possess  an  exact  match  of  grid  points  between  adjoining  grid  blocks,  the  blocking 
algorithm  will  give  best  results  if  there  is  a  point-to-point  correspondence  in  the  overlap  regions. 
See  Section  4.3  for  further  details  on  the  purpose  of  and  usage  concepts  for  the  blocking 
algorithm. 

D-1.2  ARTIFICIAL  DISSIPATION 

A  number  of  ways  are  provided  for  modifying  the  variable  part  of  the  artificial  viscosity 
coefficients.  The  most  robust  (and  diffusive)  method  is  to  use  the  version  included  with  the 
older  PARC  code  (the  isotropic  option).  A  viscous  correction  to  the  artificial  viscosity  may 
be  selected  for  flows  with  sharp  gradients  through  the  shear  layers  (e.g.,  some  hypersonic 
flows).  A  nonisotropic  artificial  dissipation  coefficient,  which  is  based  upon  a  separate 
formulation  for  each  coordinate  direction,  may  be  chosen  for  the  best  accuracy.  However, 
this  option  is  not  as  robust  as  the  original  dissipation  model.  Finally,  a  compromise  artificial 
viscosity  model  may  be  selected  that  gives  a  nonlinear  weighted  average  of  the  isotropic  and 
nonisotropic  approaches.  See  Section  4.6  for  further  details. 

D-1.3  TIME  ACCURACY 

The  PARC  code  can  be  used  to  simulate  transient  flow  problems.  For  this  purpose  two 
simulation  techniques  are  selectable.  One  is  the  original  pentadiagonal  solver.  Although  this 
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algorithm  is  the  most  efficient  way  to  simulate  transient  flows,  it  does  not  track  shocks  or 
other  strong  gradients  very  accurately.  For  better  time-accuracy,  a  pseudo-Runge-Kutta  solver 
may  be  selected.  A  three-,  four-,  or  five-stage  scheme  may  be  chosen  for  this  algorithm.  For 
additional  details  on  these  time-accurate  simulation  options,  refer  to  Section  4.5. 

D-1.4  BOUNDARY  CONDITIONS 

New  boundary  conditions  have  been  added  in  two  areas.  The  first  is  to  support  the  grid¬ 
blocking  concept  (Section  4.3).  The  second  is  to  add  flexibility  to  the  types  of  grids  and  flow 
conditions  that  the  PARC  code  can  treat  without  modification.  A  brief  description  of  these 
new  boundary-condition  types  is  listed  as  follows.  See  Section  4.8  for  further  details. 

Extrapolation  Extrapolates  all  flow-field  variables. 

Free  Stream  External  flow  far-field  boundary  condition.  Similar  to  the 

“Free”  boundary  condition  (Type  0). 

Contiguous  Describes  a  block-interface  boundary  for  which  there  is  a  point- 

to-point  match  of  grid  points  between  blocks. 

Noncontiguous  Describes  a  block-interface  boundary  that  is  not  contiguous  (See 

.previous  entry). 

Pressure  Pressure  is  kept  continuous  between  grid  blocks  with  different 

GAMMAs. 

Averaging  (2-D)  Singular  boundary  condition  for  degenerate  (collapsed) 
boundary  line.  The  average  of  extrapolated  flow  variables. 

Averaging  (3-D)  Singular  boundary  condition  for  degenerate  (collapsed)  surface. 

The  average  of  extrapolated  flow  variables. 

D-2.0  DIFFERENCES  IN  INPUT  FILES 

Both  the  restart  file  and  the  parameter  (NAMELIST)  file  have  changed  in  format  and 
content.  The  restart  file  now  contains  the  grid  dimensions  (JMAX,  KM  AX,  and  LMAX) 
for  each  grid  block  and  the  grids  and  flow  fields  for  each  block.  The  manner  in  which  it 
is  read  (and  written)  has  also  slightly  changed.  See  Section  5.3  for  details.  Changes  in  the 
parameter  file  include  the  addition  of  a  new  NAMELIST  (BLOCK),  the  inclusion  of  new 
input  parameters  (See  the  following),  and  a  rearrangement  of  the  placement  of  the  parameters 

✓ 
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in  the  NAMELISTs.  Refer  to  the  Section  on  File  Usage  for  a  description  of  the  organization 
of  the  parameter  file  and  the  NAMELISTs  in  it  (Also  see  Appendix  E). 

D-3.0  DIFFERENCES  IN  INPUT  PARAMETERS 

A  number  of  PARAMETER  statements  and  NAMELIST  input  parameters  have  been 
either  replaced,  changed,  or  added  in  this  version  of  the  PARC  code  as  compared  to  the 
version  of  AEDC-TR-87-24. 

D-3,1  REPLACED 

The  only  input  parameters  to  be  completely  replaced  were  the  array  dimensioning 
parameters  in  the  FORTRAN  PARAMETER  statements.  Since  the  PARC  code  now  essentially 
dynamically  dimensions  the  storage  arrays  for  each  grid  block,  the  previously  used 
PARAMETER  statement  parameters  NX,  NY,  NZ,  and  NM  are  no  longer  used.  Instead 
the  user  specifies  the  high-speed  computer  memory  requirements  through  the  new  parameters 
MEMORY  and  NIP.  Refer  to  Section  5.1  for  details  on  this  new  usage. 

D-3.2  CHANGED 

The  following  input  parameters  were  used  in  the  old  version  of  the  PARC  code,  but  now 
have  slightly  different  effects.  Refer  to  the  referenced  sections  of  this  report  for  a  fuller 
explanation  of  their  altered  purposes  and  usages. 

IVARDT  Description:  Selects  either  the  time-accurate  mode  or  one  of  the  variable 
time-step  options  for  the  pentadiagonal  algorithm.  Change:  Ignored 
when  the  Runge-Kutta  algorithm  is  used.  (NAMELIST  INPUTS) 
(Sections  4.7  and  4.5) 

NMAX  Description:  Maximum  number  of  iterations  to  be  preformed  during 
the  current  execution  of  the  PARC  program.  Change:  Negative  value 
causes  the  PARC  code  to  perform  initialization  checks  of  the  input 
parameters  and  restart  file  and  then  terminates  with  normal  output, 
including  printed  flow-filed  snapshot(s).  (NAMELIST  INPUTS) 
(Section  4.7) 

D-3.3  NEW 

A  number  of  new  user  selectable  parameters  have  been  added  to  the  PARC  code.  Most 
of  these  support  the  use  of  the  new  PARC  capabilities  discussed  above.  These  new  parameters 
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are  briefly  described  below;  refer  to  the  referenced  sections  of  this  report  for  a  fuller  explanation 
of  their  purposes  and  usages. 

ALPHA  Angle  of  attack  of  the  free  stream.  Used  for  free-stream  boundary 

condition  (Type  7).  (NAMELIST  INPUTS)  (Section  4.8). 

BETA  Angle  of  sideslip  of  the  free  stream.  Used  for  free-stream  boundary 

condition  (Type  7).  (NAMELIST  INPUTS)  (Section  4.8). 

COFMIX  Turbulent  mixing  coefficient  for  free  shear  layers.  (NAMELIST 
BLOCK)  (Section  4.5). 

DTBLK  Grid-block  specific  DTCAP.  (NAMELIST  BLOCK)  (Sections  4.7 
and  4.3). 

IBORD  The  sequence  of  grid-block  processing.  (NAMELIST  INPUTS) 

(Section  4.3). 

1IILTR  Spectral  radius  scaling  method  for  the  artificial  viscosity. 

(NAMELIST  INPUTS)  (Section  4.6). 

INTERJ  Interface  identification  number  for  J-constant  block  boundary 
segments.  (NAMELIST  BOUNDS)  (Sections  4.8  and  4.3). 

INTERK  Interface  identification  number  for  K-constant  block  boundary 
segments.  (NAMELIST  BOUNDS)  (Sections  4.8  and  4.3). 

INTERL  Interface  identification  number  for  L-constant  block  boundary 
segments.  (NAMELIST  BOUNDS)  (Sections  4.8  and  4.3). 

IP  LOT  Toggles  construction  of  PLOT3D  files.  (NAMELIST  INPUTS) 

(Section  4.9). 

IRKORD  Order  of  the  pseudo-Runge-Kutta  algorithm.  (NAMELIST  INPUTS) 

(Section  4.5). 

ISOLVE  Selects  the  solution  algorithm.  (NAMELIST  INPUTS)  (Section  4.5). 

LMODE  Toggles  metric  recalculations  for  blocked  grids.  (NAMELIST 
INPUTS)  (Section  4.3) 
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MBORD  Length  of  IBORD  sequence.  (NAMELIST  INPUTS)  (Section  4.3). 

MEMORY  Maximum  number  of  words  of  high-speed  memory.  (PARAMETER 
statements)  (Section  5.1). 


NBLOCK 

NIP 

PRT 

SMOO 

SPLEND 


Number  of  blocks.  (NAMELIST  INPUTS)  (Section  4.3). 

Maximum  number  of  grid  points  on  any  face  of  any  block. 
(PARAMETER  statements)  (Section  5.1). 

Turbulent  Prandtl  number.  (NAMELIST  INPUTS)  (Section  4.5). 

Selects  Runge-Kutta  implicit  residual  smoothing  option.  (NAMELIST 
INPUTS)  (Section  4.6). 

Artificial  viscosity  blending  control.  (NAMELIST  INPUTS)  (Section 
4.6). 


STOPTR  The  amount  of  computer  time  (in  seconds)  before  the  program 
execution  time  limit  is  reached  at  which  normal  program  termination 
is  to  commence.  (NAMELIST  INPUTS)  (Section  4.7). 

XMACH  Mach  number  of  the  free  stream.  Used  for  the  free-stream  boundary 

condition.  (NAMELIST  INPUTS)  (Section  4.8). 


D-4.0  DIFFERENCES  IN  OUTPUT 


The  principal  differences  in  output  between  the  new  version  of  the  PARC  code  and  the 
older  version  are  in  the  format  of  the  restart  file,  certain  additions  to  the  printed  output, 
and  the  option  of  creating  a  PLOT3D  plot  file.  The  differences  in  the  restart  file  are  covered 
previously  in  the  discussion  on  input  file  differences.  Printed  output  from  the  PARC  code 
remains  the  same  as  with  the  old  version,  except  that  the  new  and  changed  input  parameters 
are  printed  in  the  appropriate  places  and  the  blocking  feature  requires  that  additional 
information  be  printed  for  each  block.  In  particular,  boundary  conditions,  patching 
information,  and  flow-field  snapshots  are  printed  by  block.  Further  details  on  the  control 
of  the  printed  output  can  be  found  in  Section  4.9,  and  examples  of  the  format  of  this  output 
can  be  found  in  Appendix  E. 
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APPENDIX  E 
EXAMPLES 

Consider  the  sample  problem  diagramed  in  Fig.  E-l.This  is  a  2-D  diverging  nozzle  flow 
with  straight  duct  segments  at  each  end  of  the  nozzle.  The  desired  operating  conditions  are 
also  indicated  on  the  figure.  First,  an  execution  of  the  PARC2D  code  for  this  example  will 
be  presented. 


E-1.0  2-D  DIVERGING  NOZZLE 

The  grid  and  initial  conditions  were  generated  using  the  program  of  Listing  E-l.  A  total 
of  33  equally  spaced  J-coordinate  lines  and  11  K-coordinate  lines  were  used,  as  shown  in 
Fig.  E-2.  The  initial  conditions  were  appropriate  to  a  free-streaming  flow  at  Mach  0.29  and 
a  ratio  of  specific  heats  of  1 .4.  These  initial  conditions  and  grid  were  stored  in  the  file 
ICCASE1. 

The  execution  file  is  displayed  in  Listing  E-2.  Note  that  2-D,  in  viscid  flow  has  been  specified 
and  that,  for  this  simple  flow,  the  artificial  viscosity  coefficients  are  at  their  practical 
minimums.  The  printed  output  is  presented  in  Listing  E-3.  A  sample  Mach  number  contour 
plot  of  the  converged  solution  is  shown  in  Fig.  E-3. 

E-2.0  3-D  DIVERGING  NOZZLE 

This  example  problem  is  exactly  the  same  as  the  2-D  diverging  nozzle  problem  except 
that  the  nozzle  has  a  width  of  5  and  has  21  L-coordinate  lines  across  this  width.  The  grid 
and  initial  conditions  were  produced  by  the  program  in  Listing  E-4.  The  execution  file  including 
the  NAMELIST  inputs  to  the  PARC3D  code  are  shown  in  Listing  E-5.  The  corresponding 
printed  output  is  in  Listing  E-6.  Mach  contours  for  a  2-D  slice  of  this  problem  are  shown 
in  Fig.  E-4. 


E-3.0  CONTIGUOUS  BLOCK  INTERFACE 

This  is  the  same  problem  as  the  first  example,  except  the  grid  is  decomposed  into  three 
grid  blocks.  The  grid  and  initial  conditions  were  produced  by  the  program  in  Listing  E-7. 
The  execution  file  including  the  NAMELIST  inputs  to  the  PARC2D  code  are  shown  in  Listing 
E-8.  The  corresponding  printed  output  is  in  Listing  E-9.  The  solution  does  not  continue  to 
converge  after  approximately  1 ,600  iterations;  this  is  caused  by  the  use  of  reduced  precision 
input/output.  Minor  code  changes  can  be  made  to  convert  to  full-precision  input/output, 
which  will  permit  convergence  of  the  same  order  of  magnitude  as  the  previous  examples. 
Mach  contours  and  grid-block  boundaries  are  shown  in  Fig.E-5. 
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E-4.0  NONCONTIGUOUS  BLOCK  INTERFACE 

Again  the  2-D  diverging  nozzle  problem  is  solved  using  three  grid  blocks,  except  one  of 
the  grid  blocks  has  increased  grid  resolution.  The  program  in  Listing  E-10  generated  the  grid, 
shown  in  Fig.  E-6,  and  the  initial  conditions.  The  execution  file,  including  the  NAMELIST 
inputs,  are  shown  in  Listing  E-ll.  The  PARC2D  code  printed  output  is  shown  in  Listing 
E-12;  again  note  the  stalled  convergence  caused  by  reduced  precision  block  input/output. 
Mach  contours  for  the  converged  solution  are  shown  in  Fig.  E-7. 
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Inflow  Boundary  Condition 
Ptotal  =  1 5  psia 
Ttotal  =  600°R 
Flow  Angle  -  Odeg 


Outflow  Boundary  Condition  Reference  Conditions 
Pstatic  =  14.13  psia  Pref  =15  psia 

Tref  =  600  R 
y  =  1.4 


Figure  E-1.  Diverging  nozzle  example. 
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Figure  E-2.  Diverging  nozzle  grid. 
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Figure  E-5.  Grid  and  Mach  contours  for  contiguous  blocks. 
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Figure  E-6.  Grid  for  noncontiguous  blocks. 
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Listing  E-l.  Grid  and  Initial  Condition  Generator  (2-D) 


1 

1. 

PROGRAM  ICFILE 

2 

2. 

PARAMETER ( JD=33 , KD= 11) 

3 

3. 

DIMENSION  R( JD,KD),RU< JD,KD),RV{ JO.KDI.Ef JD.KD) 

4 

4. 

DIMENSION  X(JD,KD),Y(JD.KD} 

5 

5. 

DATA  6/1.4/ 

6 

6. 

GMl-6-1. 

7 

7. 

DELX=8./32 

6 

C 

FORM  THE  'X'  GRID  ARRAY 

9 

8. 

DC  1  J=1,JD 

10 

9. 

DO  1  K=1,KD 

11 

10. 

IF(J.EO.I)  THEN 

12 

11. 

XCJ,K)=0. 

11 

12. 

ELSE 

14 

13. 

XCJ,K)»X<J-1,X)*DELX 

15 

14. 

END  IF 

16 

15. 

1 

CONTINUE 

17 

C 

FORM  THE  'Y'  GRID  ARRAYS 

18 

16. 

DO  2  J-l.JO 

19 

17. 

I F(X{ J ,KD) .LE.2. )  YO=1. 

20 

18. 

IF(X(J,KD).GT.6.)  YO»2. 

21 

19. 

IF((X(JfKD}.GT.2.1 .AMD. {XC J rKD) -LE.6. )}  THEN 

22 

20. 

YO»1.+(X(J,KD)-2.>»0.25 

23 

21. 

ENDIF 

24 

22. 

DELY=Y0/(K0-1> 

25 

23. 

Y< J. 1)E0.0 

26 

24. 

DO  2  K=2,KD 

27 

25. 

Y(J,K>=Y(J,K-1)*0ELY 

28 

26. 

2 

CONTINUE 

29 

C 

FORM  THE  ARRAYS  OF  NON-DIMENSIONAL  CONSERVATION  VARIABLES 

30 

C 

CONSISTENT  UITH  A  FREE-STREAH  MACH  NUMBER  OF  0.29 

31 

27. 

FNACH=0.29 

32 

2S. 

FACT»(1.+.2*FMACH**2) 

33 

29. 

PBAR=FACT“(-3.5)/G 

34 

30. 

DO  1000  J=1,JD 

35 

31. 

DO  2000  K=1 jKD 

36 

32. 

R<J,K>-FACT«*<-2.5> 

37 

33. 

RUC  J ,  K  )=R  (  J ,  X }*FHACH*SQRT ( 1 . /FACT ) 

38 

34. 

RV(J,X)=0. 

39 

35. 

E(J.K)=PBAR/GM1+.5*(RU( J.K)**2)/R( J,K> 

40 

36. 

2000  CONTINUE 

41 

37. 

1000  CONTINUE 

42 

38. 

NC1sD 

43 

39. 

URITE<20>NC1,G 

44 

40. 

WRITE<20)JD,KD 

45 

41. 

URITE<20)K>Y 

46 

42. 

WRITE<20)R .RU.RV.E 

47 

43. 

STOP 

4B 

44. 

END 

I 
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Listing  E-2.  Execution  and  Input  File  (2-D) 


//A05569X  JOB  <SVT, ATT 00000,00, 7890491 2), <DON  TOOO  EL2  CFO1, 
//  CLASS=X,T IHE=( ,5) ,USER=A05569,PASSUORD=XXXXXXXX,HSGCLASSeZ, 
n  HSGLEVEL=1 , PRTY-8,MOT I FY=A05569 

n * 

/‘ROUTE  PRINT  RMTD 

/•JOBPARM  ROOH=5  2ND  FLOOR  DO  BLDG  1099 

//* 

//  EXEC  CRAY 

CRSUBNIT  F <05 JOS)  H0TIFY<A05569>  DEST(RNTO)  PR1NT(3>  HOLD 
//OS JOB  OD  * 

J0B,JN=A05569Y,T=150,NFL. 

ACCOUNT , AC= 7890491 0, US=AQ5  569. 

FETCH,DM=COOE,TEXT=iDSN=A05569.BARC(BARC2D),DISP=SHR> . 

CFT , I =COOE,L=0. 

ACCESS, DN=BNCHLIB, PDN=BNCHl IB, ID=BNCHMRK,OWN«SYSTEH. 

ACCESS , DH-FT02, PDNe ! CCASE1 . 

LDR,LIB=BNCHUB. 

•SAVE , DN=  F  T  04 , PDH=R  SCASE 1 . 

D1 SPOSE , DM=FT04,DCEST , DF=TR , TEXT=‘ 

1 DSN-A05569.TRCASE1 .REST,OISP«( ,CATLG1 , 1 " 
'UNIT=DISK,SPACE=<CYL,(38),RLSE), 1  * 

'DCB=(RECfM“f ,LRECL=4096,SLKS[ZE=4096) ' . 

/EOF 

(INPUTS 

UMAX =25 00,  NP=2500, 

PREF-15.0,  TREFR=600., 

IFXPRT=1r  NBLOCK-1, 

DIS2-0.0D,  DIS4=0.30, 

DTCAP-  7.0,  PCONAX-IO.O, 

NSPRT=50,  IAXISY=0,  STOPL2=l .E-20, 

S 

{BLOCK 

NPSEG=2, 

INVISC(1 )=D,  INVISC(2)=0, 

$ 

SPRTSEG 

JXLPl(1,1f1)=1,3J,4,  JKLPI(1,2,1)=1,11,1,  IPORD<1)=2, 

JXLPI (1,1 ,21=2,32,2,  JXLP[(lr2,2)c2,10,2,  IPORD<2)=1, 

(BOUNDS 

NJSEG=2, 

JLINE(1)>1, 

JKLOW<1)=2,  JKHIGH(1)=10,  JTYPE(1)=0, 

JSIGM<1)=1,  PRESSJC1 )=0. 71 42857,  TEHPJ(1)=1.0, 

JL1NE(2)=33, 

JKLOWC2)=2,  JKHIGHf2)=10r  JTYPEC2>=0, 

JSIGH(2)=-1 ,  PRESSJ<2)=0. 67285,  TENPJ(2)=1 .0, 

NKSEG=2, 

KLINE(1)=1, 

KJLOU(1 }=1,  KJHIGH<1)=33,  KTYPE( 1 )E50, 

KSIGNCD-1, 

KLINE(2)=1 I , 

KJLOU(2)=1,  KJHIGH<Z)-J3,  KTYPE<2>=50, 

KSIGN<2)=-1, 

S 

/EOJ 


109 


AEDC-TR-89-1 5 


Listing  E-3.  Diverging  Nozzle  Output  (2-D) 


NAMELIST  INPUTS: 


PREF 

3 

0.15000GE+02 

iaxist 

5 

0 

TREFR 

= 

0.600000E+03 

N SLOCK 

= 

1 

VRAT 

3 

-  0 . 666667E+00 

NMAX 

■ 

2500 

TSUTH 

3 

0. 19860 0E+03 

NC 

0 

RE 

3 

O.OOOOOOE+OO 

NSPRT 

= 

50 

PR 

n 

0.720000E+00 

NP 

= 

2500 

PRT 

= 

0.90000CE+00 

IFXPRT 

= 

1 

DIS2 

3 

O.OOOOOOE+OO 

IFXPLT 

w 

a 

DIS4 

3 

0.300000E+00 

L2PLOT 

= 

0 

DTCAP 

3 

0.700000E+01 

1PLOT 

= 

0 

PCGHAX 

■ 

0.100000E+02 

LHOOE 

s 

i 

SPLEND 

3 

O.IOOOOOE+Ol 

MBORD 

= 

i 

SHOO 

3 

O.OOOOOOE+OO 

NUFDT 

3 

0 

ST0PL2 

3 

0.100000E-19 

IVARDT 

a 

2 

STOPTR 

c 

O.SOOOOOE+OI 

I  SOLVE 

3 

1 

ALPHA 

w 

O.OOOOOOE+OO 

IRHS 

s 

1 

XMACH 

M 

O.OOOOOOE+OO 

IFILTR 

■ 

1 

IMUTUR 

= 

1 

THE  ORDER  OF  BLOCK  PROCESSING  FOLLOWS 
1 

FOX  BLOCK  1 

JHAX  =  33  KHAX  =  11 

NN  =  33  IJK  »  363 

NAMELIST  BLOCK  FOR  BLOCK  1 
GAMMA  -  0.140000E+01  INVISC  *  0  0 

COFHIX  «  O.WOODOE-OI  LAM  IN  =  0  0 

OTBLK  =  O.OOOOOOE+OO  NPSEG  =  2 

NBCSEG  =  0 


NAMELIST  PRTSEG  FOR  BLOCK  I 

JKLPI  IPORD 


JA 

JB  JS 

KA 

KB  KS 

J  K 

1 

1 

33  4 

1 

11  1 

2  1 

2 

2 

32  2 

2 

10  2 

1  2 

NAMELIST  BOUWS  FOR  BLOCK 

1 

JSEG 

JLINE 

JKLOU  JKHIGK 

JTTPE 

INTERJ 

JSIGM 

PRESSJ 

TEHPJ 

JTYPE 

1 

1 

2  10 

0 

1 

0.714286E+00 

0.100000E+01 

FREE 

2 

33 

2  10 

0 

-1 

0.672B50E+00 

0.100000E+01 

FREE 

KSEG 

KLINE 

KJLOU  KJHIGH 

KTYPE 

INTERK 

KSIGN 

PRESSK 

TEMPK 

KIYPE 

1 

1 

1  33 

50 

1 

SLIP 

2 

11 

1  33 

50 

-1 

SLIP 

GRID  PATCHES  FOR  BLOCK  1 

J-PATCHES  MINIMUM  MAXIMUM 

J  K  J  K 

1  2  2  32  10 

K-PATCHES  MINIMUM  MAXIMUM 

J  K  J  K 

1  2  2  32  10 


no 
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Listing  £-3.  Continued 


COUNT 

BLOCK 

Of 

L2  RESIDUAL 

NASS  FLUX 

MOMENTUM 

FLUXES  ENERGY  FLUX 

MAX  PERCENT  MAX  LOCATION 

X 

Y 

VARIATION 

J 

K 

50 

1 

0.7000E+01 

0.139CE-03 

-0.8920E-03 

O.1785E-02 

0.4515E-03  -0.1014E-02 

0.5374E+00 

9 

10 

TOO 

1 

0.7000E+01 

0.7193E-04 

-0.2493E-03 

O.1374E-02 

0.6880E-03  -0.1939E-03 

G.2210E+00 

9 

10 

150 

1 

0.7000E+01 

0.3326E-04 

-0.1736E-03 

0.798 7E-03 

0.7615E-03  -0.1334E-03 

0.1542E+00 

9 

10 

200 

1 

0.7000E+01 

0.1662E-04 

-0.1244E-03 

O.4839E-03 

0.3584E-03  -0.9795E-04 

0.1175E+00 

9 

10 

250 

1 

0.7000E+01 

0.1Z34E-04 

-Q.B704E-04 

O.2976E-03 

0.2141E-03  -0.6958E-04 

0.8S23E-01 

9 

10 

300 

1 

0.7000E+01 

0.B281E-05 

•0.5935E-O4 

0.1B85E-03 

0.1325E-03  -0.476IE-04 

0.5976E-01 

9 

10 

350 

1 

0. 7000E+0 1 

0.5603E-05 

-0.4037E-04 

0.1210E-03 

0.8238E-04  -0.3Z54E-04 

0.4134E-01 

9 

10 

400 

1 

0.7000E+01 

0.3775E-05 

-0.2726E-04 

0.7865E-04 

0.5269E-04  -0.2203E-04 

0.2824E-01 

9 

10 

450 

1 

0.7000E+01 

0.2539E-05 

-0.1B36E-04 

0.5157E-04 

0.3406E-04  -0.1486E-04 

0.1916E-01 

9 

10 

500 

1 

0.7000E+01 

0.1704E-05 

-0.12S3E-04 

0.3402E-04 

0.2226E-04  -0.9994E-05 

0.1293E-01 

9 

10 

550 

1 

0. 7000E+01 

0.1142E-05 

-0.8267E-0S 

0.2254E-04 

0.1465E-04  -0.6707E-05 

0.8697E-02 

9 

10 

600 

1 

0.7000E+01 

0.7650E-06 

-0.5538E-05 

0.1497E-04 

0.9687E-05  -0.4495E-05 

0.5B38E-02 

9 

10 

650 

1 

0.7000E+01 

0.5120E-06 

-0.3707E-05 

0.9968E-05 

0.64Z9E-05  -0.3010E-05 

0.3913E-02 

9 

10 

700 

1 

0.7000E+01 

G.3425E-06 

-0.2480E-C5 

0.6644E-05 

0.4277E-05  -0.2014E-05 

0.2621E-02 

9 

10 

750 

1 

0.7000E+01 

0. 2291 E- 06 

-0.1659E-05 

0.4433E-05 

0. 2850 E- 05  -0.1348E-05 

0.1754E-02 

9 

10 

SOO 

1 

0.7000E+01 

0.1532E-O6 

-0.1109E-05 

0.2960E-05 

0.1901E-05  -0.9012E-06 

0.1173E-02 

9 

10 

S50 

1 

0.7000E+01 

0.1024E-06 

-0.7417E-06 

0.1977E-05 

0.1269E-05  -0.6026E-06 

0.7847E-03 

9 

10 

900 

1 

0.7000E+01 

0.6847E-07 

-0.4958E-06 

0.1320E-05 

0.B471E-06  -0.4029E-06 

O.5247E-03 

9 

10 

950 

1 

0.7000E+01 

0.4577E-07 

-0.3315E-06 

Q.B823E-D6 

0.5658E-06  -D.2693E-06 

0.3508E-03 

9 

10 

1000 

1 

0.7000E+01 

0.3060E-07 

-0.2216E-06 

0.5896E-06 

0.3780E-06  -0.1801E-06 

0.2345E-03 

9 

10 

1050 

1 

0.700QE+01 

0.2045E-07 

-0. 1481 E -06 

0.3940E-06 

0.2526E-06  -0. 1204E-O6 

0.1568E-03 

9 

10 

1100 

1 

0.7000E+01 

0. 1367E-07 

-0.9900E-07 

0.2633E-06 

Q.1688E-06  -0.8045E-07 

0.1048E-03 

9 

10 

1150 

1 

0.7000E+01 

0.9138E-08 

-0.6618E-07 

0.1760E-06 

0.1128E-O6  -0.5378E-07 

0.7005E-04 

9 

10 

1200 

1 

0.7000E+01 

0.6108E-08 

-0.4423E-07 

0.1176E-O6 

0.7541E-07  -0.3595E-07 

0.4683E-04 

9 

10 

9250 

1 

0. 7000E+D1 

0.4083E-08 

-0.2957E-07 

0. 7B63E-07 

0.5040E-07  -0.2403E-07 

0.3130E-04 

9 

10 

1300 

1 

0.7000E+01 

0.2729E-08 

-D.1976E-07 

0.5256E-07 

0.3369E-07  -0.1606E-07 

0.2092E-04 

9 

10 

1350 

1 

0.7000E+01 

0.1S24E-0S 

-0.1321E-07 

0.3513E-07 

0.2252E-07  -0.1073E-07 

0.1398E-04 

9 

10 

1400 

1 

0.7000E+01 

0.1219E-0B 

-O.083CE-O8 

0.2348E-07 

0.1505E-07  -0.7175E-08 

Q.9347E-05 

9 

10 

1450 

1 

0.7000E*01 

0.8150E-09 

-D.5902E-Q8 

0. 1569E-07 

0.1006E-07  -0.4796E-08 

0. 6248  E- 05 

9 

10 

1500 

1 

0.7000E+01 

0.5447E-09 

-0.3945E-03 

0. 1C49E-Q7 

0.6724E-08  -0.3206E-08 

0.4176E-05 

9 

10 

1550 

1 

0.7000E+01 

0.3641E-09 

-0.2637E-08 

0.7012E-08 

0.4494E-08  -0.2143E-0B 

0.2791E-05 

9 

10 

1600 

1 

0.7000E+01 

0.2434E-09 

-0.1763E-08 

0.4687E-08 

0.3004E-08  -0.1432E-0B 

0.1866E-05 

9 

10 

1650 

1 

0.7000E+01 

0.1627E-09 

-0.1178E-08 

0.3133E-08 

0.2D08E-08  -0.9573E-09 

0.1247E-05 

9 

10 

1700 

1 

0.7000E+01 

0.1087E-09 

-0.7874E-09 

0.2094E-08 

0.1342E-O8  -0.6399E-09 

0.8336E-06 

9 

10 

1750 

1 

0.700QE+01 

0.7268E-1D 

-0.5263E-09 

0.1400E-08 

0.8970E-09  -0.4277E-09 

0.5S72E-06 

9 

10 

1800 

1 

0.7000E+01 

0.4858E-10 

-0.3518E-09 

0.9355E-09 

D.5996E-09  -0.2S59E-09 

0.3724E-06 

9 

10 

1850 

1 

0.7000E+01 

0.3247E-10 

-0.2352E-09 

0.6253E-09 

0.4008E-09  -0.191  IE-09 

0.24B9E-06 

9 

10 

1900 

1 

0.7000E+01 

0.2170E-10 

-0.1572E-Q9 

D.4180E-09 

0.2679E-09  -0.1277E-09 

0. 1664E-06 

9 

10 

1950 

1 

0.7000E+01 

0.1451E-10 

-0.1051E-09 

0.2794E-09 

0.1791E-09  -0.853BE-10 

0. 1112E-06 

9 

10 

2000 

1 

0. 7000E+01 

0.9697E-11 

-0.7023E-10 

0.1867E-09 

0.1 1978-09  -0.5707E-10 

0.7434E-07 

9 

10 

2050 

1 

0.7000E+01 

0.6482E-11 

-0.4694E-10 

0. 1248E-09 

O.BOOIE-IO  -0.381 5E-10 

0.4969E-07 

9 

10 

2100 

1 

0.7000E+01 

0.4333E-11 

-0.3138E-10 

0.8343E-10 

0.5341E-10  -0.2550E-10 

0.3321E-07 

9 

10 

2150 

1 

0.7000E*01 

0.2896E-11 

•0.2097E-10 

0.5S77E-10 

0.3572E-10  -0.1704E-10 

0.2220E-07 

9 

10 

2200 

1 

0.700DE+01 

0.1936E-11 

-0.1402E-10 

0.3728E-10 

0.2390E-10  -0.1139E-10 

0.1483E-07 

9 

10 

2250 

1 

0.7000E+01 

0.1294E-11 

-0.9372E-11 

0.2492E-10 

0.1602E-10  -0.7615E-11 

0.9916E-08 

9 

10 

2300 

1 

0.7000E+01 

0.8649E-12 

-0.6266E-11 

0.1665E-10 

0.1071E-10  -0.5D91E-11 

0.6625E-08 

9 

10 

2350 

1 

0.7000E+01 

0.5783E-12 

-0.4187E-11 

0.111 4E -10 

0.7153E-11  -0.3400E-11 

0.4431E-08 

9 

10 

2400 

1 

0.7000E+01 

0.3865E-12 

-0.2S01E-11 

0.7443E-1 1 

0.4753E-11  -0.2275E-11 

0.2962E-08 

9 

10 

2450 

1 

0. 7000E+01 

0.2584E-12 

-0.1873E-11 

0.4976E-11 

D.3201E-11  -0.1521E-11 

0.1979E-08 

9 

ID 

2500 

1 

0.7000E+01 

0.172BE-12 

-0.1253E-11 

0.3326E-11 

0.2178E-11  -0.1017E-11 

0.1325E-08 

9 

10 
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Listing  E-3.  Continued 


BLOCK  1  VARIABLES  AT  J  -  1  ITERATION  NUMBER:  2500 


K 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSIN6 

V-COSINE 

X 

Y 

1 

0.10166+02 

0.5368E+03 

0.767CE+00 

0.1500E+02 

0.1000E+01 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

2 

0.10166+02 

0.5368E+03 

0.7670E+00 

0.1500E+02 

0. 10006+01 

0.0000E+00 

O.OOOOE+OO 

O.IOOOE+OO 

3 

0.10166+02 

0.5368E+O3 

0.7670E+00 

0.1500E+02 

0.1000E+01 

O.OOOOE+OO 

O.OOOOE+OO 

0.2000E+00 

4 

Q.1016E+02 

0.5368E+03 

0. 7670E+00 

0.1500E+02 

0. 1000E+01 

O.OOOOE+OO 

O.OOOOE+OO 

0.3000E+00 

5 

0.101 66+02 

0.5366E+03 

0.7671E+00 

0. 15006+02 

0.1000E+01 

O.OOOOE+OO 

0.00006+00 

0.4000E+00 

6 

0.10166+02 

0.5368E+03 

0.7671E+00 

0.1500E+02 

0.10006+01 

O.OOOOE+OO 

O.OOOOE+OO 

0.5000E+00 

r 

0.10166+02 

0.5368E+03 

0.7671E+00 

0.1500E+02 

0.10006+01 

O.OOOOE+OO 

O.OOOOE+OO 

0.6000E+00 

8 

0.1016E+02 

0.53686+03 

0.7672E+00 

0.15006+02 

0.1000E+01 

O.OOOOE+OO 

O.OOOOE+OO 

0.7000E+00 

9 

0.1016E+02 

0.53686+03 

0.7672E+00 

0.1500E+02 

0.1000E+01 

O.OOOOE+OO 

O.OOOOE+OO 

0.8000E+00 

10 

0.1016E+02 

0.53686+03 

0.7672E+00 

0.1500E+02 

0.1000E+01 

O.OOOOE+OO 

O.OOOOE+OO 

0.9000E+00 

11 

Q.1Q16E+02 

0.5368E+D3 

0.7672E+00 

0.1500E+02 

0.1000E+01 

a.OGOOE+OO 

O.OOOOE+OO 

O.IOOOE+OI 

BLOCK  1  VARIABLES  AT  J 

=  5 

ITERATION  NUMBER: 

2500 

K 

PRESSURE 

TEMPERATURE 

MACH  HUBER 

TOTAL  PRESS 

U- COSINE 

V-COSINE 

X 

r 

1 

0.1017E+02 

0.5370E+03 

0.7662E+00 

0.1500E+02 

0.1000E+01 

O.OOOOE+OO 

0.1000E+01 

O.OOOOE+OO 

2 

0.1017E+02 

0.5370E+03 

D.7662E+00 

0.1500E+02 

0.10006+01 

0. 26986-03 

0.1000E+01 

0.10006+00 

3 

0.1017E+02 

0.53696+03 

0 . 7663E+00 

0.1500E+02 

a.ioooE+oi 

0.S8S2E-03 

0. 1000E+01 

0.2000E+00 

4 

0. 1017E+02 

0.5369E+03 

0.7665E+00 

0.1500E+02 

0. 10006+01 

0.8151E-03 

0.1000E+01 

0.300DE+00 

S 

0.1016E+02 

0.53686+03 

0.7667E+00 

0.1500E+02 

0.10006+01 

0.10126-02 

0. 1000E+01 

0.4000E+00 

6 

0. 1016E+02 

0.53686+03 

0.7670E+00 

0. I499E+02 

0.10006+01 

0. 11086-02 

0. 10006+01 

O.SOOOE+OO 

7 

C.1016E+02 

0.5367E+03 

0.7672E+00 

0.14996+02 

0.1000E+01 

0.1110E-02 

0.1000E+01 

0.6000E+00 

8 

0.1015E+02 

0.5367E+03 

0.76746+00 

0.14996+02 

0.1000E+01 

0.1002E-02 

0.100DE+01 

o.toooe+oo 

9 

0.1015E+02 

0.5366E+03 

0.7675E+00 

O.1499E+02 

0.1000E+01 

0.7610E-03 

0.100 OE+OI 

0.80006*00 

10 

0.101 5E+02 

0. 53666+03 

0.7677E+00 

0.1499E+02 

0.10006+01 

0.3442E-03 

O.IOOOE+OI 

0.90006 +00 

11 

0.1015E+02 

0.53666+03 

0.7677E+00 

0.14996+02 

0.1000E+01 

o.oeooE+oo 

0.100DE+01 

0.10006+01 

BLOCK  1  VARIABLES  AT  J 

=  9 

ITERATION  NUMBER: 

2500 

K 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U- COSINE 

V-COSINE 

X 

Y 

1 

0. 1060E+02 

0.5433E+03 

0.7239E+00 

0.1S02E+02 

0.1000E+01 

0.8059E-16 

0.2000E+01 

O.OOOOE+OO 

2 

0. 10606+02 

0. 54336+03 

0.7239E+00 

0.15026+02 

0.100QE+01 

0.68436-02 

0.2000E+01 

O.IOOOE+OO 

3 

0. 1058E+O2 

0.54296+03 

0.7262E+00 

0.1502E+02 

0.99986+00 

0.1745E-01 

0.2000E+01 

D.2000E+00 

4 

0.1052E+02 

O.5421E+03 

0.731BE+00 

0.1502E+02 

0. 99976+00 

0.2414E-01 

0.2000E+01 

0.3000E+00 

5 

0.1048E+02 

0.5415E+03 

0.7372E+00 

0.1504E+02 

0.9994E+00 

0.3582E-01 

0.2000E+01 

0.4000E+00 

6 

0.10356+02 

0.5395E+03 

0 . 7496E+00 

0.1503E+02 

0.99926+00 

0.4081E-01 

0.2000E+01 

0.5000E+00 

7 

0. 1031E+02 

0.53876+03 

0.7586E+00 

0.15096+02 

0.9984E+00 

0.5643E-01 

0.2000E+01 

0.6000E+00 

8 

0.1004E+02 

0.5346E+03 

0.7815E+00 

0. 15036+02 

0.9984E+00 

0.5722E-D1 

0.2000E+01 

0.7000E+00 

9 

0. 1001E+02 

0. 53386+03 

0.7963E+00 

0.15206+02 

0.9965E+00 

0.8304E-DI 

0.2000E+01 

O.BOOOE+OO 

10 

0.9495E+01 

0.5258E+03 

0.83676+00 

0.1502E+02 

0.9973E+00 

0.7345E-01 

0.20006+01 

0.9000E+00 

11 

0.9507E+01 

0.5260E+03 

0.83556+00 

0.1502E+02 

0.9923E+00 

0.1240E+00 

0.2000E+01 

O.IOOOE+OI 

BLOCK  1  VARIABLES  AT  J 

=  13 

ITERATION  NUHBER: 

2500 

K 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

Y 

1 

0.1235E+02 

0.5677E+03 

0.5338E+00 

0.1499E+02 

0. 1000E+01 

0.2138E-15 

0.3000E+01 

O.OOOOE+DO 

2 

0. 1235E+02 

0.5677E+03 

0.5340E+00 

0.1499E+02 

0.9997E+00 

0.2291E-01 

0.30006+01 

0. 1250E+D0 

3 

0. 1235E+02 

0.5677E+03 

0.5336E+00 

0. 1499E+02 

0. 99896+00 

0.4766E-01 

0.3D006+01 

0.2500E+DD 

4 

0.1235E+02 

0.5678E+O3 

0.5326E+00 

0.1499E+02 

0. 9975 E +00 

0.7087E-01 

0.3000E+01 

0.3750E+00 

5 

0.T236E+02 

0.5679E+03 

0.5322E+00 

0.1499E+02 

0.99546+00 

0.95796-01 

0.3000E+01 

0.5000E+00 

& 

0. 1237E+02 

0.56816+03 

0.5298E+00 

0.14986+02 

0.9928E+00 

0.1201E+00 

0.3000E+01 

0.6250E+00 

7 

0. 123BE+02 

0.5682E+03 

0.5295E+00 

0.1 4996+02 

0. 98956+00 

0.1445E+00 

0.3000E+01 

0.7500E+00 

8 

0.I241E+02 

0.5687E+03 

0.52596+00 

O.1498E+02 

0.9854E+00 

0.1704E+00 

0.3000E+D1 

0.8750E+00 

9 

0.1242E+02 

0.56906+03 

0.52176+00 

0.1495E+02 

0.981 1E+00 

0.1936E+00 

0.3000E+D1 

O.IOOOE+OI 

10 

0.1247E+02 

0.5700E+03 

o.soaoE+ao 

0.1487E+02 

0.9744E+00 

0.2248E+00 

0.3000E+01 

0.1125E+01 

11 

0.124 7E+02 

0.5700E+03 

0.5079E+00 

0.14B7E+02 

0.9701E+00 

0.2425E+00 

0.3000E+01 

0.1250E+01 
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Listing  E-3.  Continued 


BLOCK  1  VARIABLES  AT  J 

-  17 

ITERATION  HUMBER: 

2500 

K 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

10TAL  PRESS 

U-COSINE 

V-COSIN6 

X 

Y 

1 

0.132SE+02 

0.5796E+03 

0.4195E+00 

0.1499E+02 

0.1000E+01 

O.OOOOE+OO 

0.4000E+01 

O.OOOOE+OO 

2 

0.1328E+02 

0.57966+03 

0.4197E+00 

0.14996+02 

0.9997E+00 

0.2547E-01 

0.4000E+01 

0.1500E+00 

3 

0.1329E+02 

0.5797E+03 

0.4190E+00 

0.14996+02 

0.99886+00 

0.4904E-01 

0.4000E+01 

0.3000E+00 

4 

0.1329E+02 

0.57986+03 

0.4179E+00 

0.1499E+02 

0.99726+00 

0.7433E-01 

0.4000E+01 

0.4500E+00 

5 

0.1330E+02 

0.5799E+D3 

0.4165E+00 

0.14996+02 

0.9952E+00 

0.97B3E-01 

0.4000E+01 

0.6000E+00 

6 

0.1S32E+02 

0.5801 E+03 

0.4149E+00 

0.149K+02 

0.9924E+00 

0.1232E+00 

0.4000E+01 

0.7500E+00 

7 

0.1332E+02 

0.5802E+03 

0.4132E+00 

0.14996+02 

0.98936+00 

0.14606+00 

0.400 0E+01 

0.9000E+00 

8 

0.1335E+O2 

0.5807E+03 

0.4090E+00 

0. 14986+02 

0.9850E+00 

0.1723E+00 

0.4000E+01 

0. 1050E+01 

9 

0.1336E+02 

0.5810E+03 

0.4021E+00 

0.14936+02 

D. 98086+00 

0.19536*00 

0.40006+01 

0.1200E+Q1 

10 

0.1340E+02 

0.5817E+03 

0.3959E+00 

0. 14926*02 

0.97496+00 

0.2227E+00 

0.40006+01 

0.1350E+01 

11 

0.1340E+02 

0.5817E+03 

0.3958E+00 

0.1492E+02 

0.9701 E+00 

0.2425E+00 

0.4000E+01 

0. 1500E+01 

BLOCK  1  VARIABLES  AT  J 

=  21 

ITERATION  NUMBER: 

2500 

K 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

T 

1 

0.1377E+02 

0.S656E+O3 

0.3511E+00 

0.1499E+02 

0. 1000E+01 

O.OOOOE+OO 

0.5000E+01 

O.OOOOE+OO 

2 

0.1376E+02 

0.5B56E+O3 

0.3S12E+OG 

0.14996+02 

0.9997E+00 

0.2347E-01 

0.5000E+01 

0.1750E+00 

3 

D.1377E+02 

0. 58566+03 

0.3506E+00 

0.1499E+02 

0.9990E+00 

0.4494E-01 

0.5000E+01 

0.3S00E+00 

4 

0.1378E+02 

0.5858E+03 

0.3492E+00 

0.1499E+02 

0.9977E+00 

0.6843E-01 

0.5000E+01 

0.52506+00 

5 

0.13796+02 

0.56596+03 

0.3476E+00 

0.1499E+02 

0.99596+00 

0.9007E-01 

0.5000E+01 

0.70006+00 

6 

0.1381E+02 

0.58616+03 

0.345SE+00 

0.1500E+02 

0.9935E+00 

0.11426+00 

0.5000E+01 

0.8750E+00 

7 

0.1382E+02 

0.5863E+03 

0.3424E+00 

0.14986+02 

0.9906E+00 

0.13666+00 

0.5000E+01 

0.10506+01 

B 

0. 1385E+02 

0.5868E+03 

0.3366E+00 

0.14986+02 

0.9866E+00 

0.16326+00 

0.5000E+01 

0.12256+01 

9 

0. 1385E+02 

0.58716+03 

0.3300E+00 

0.14946+02 

0.9S22E+00 

0.1B78E+00 

0.5000E+01 

0.14006+01 

10 

0. 1389E+02 

0.5877E+03 

0.3250E+00 

0. 1494E+02 

0.9762E+00 

0.2170E+00 

0.5000E+01 

0.15756+01 

11 

0.1389E+02 

0.5877E+03 

0.3249E+00 

0. 14946+02 

0.9701E+00 

0.2425E+00 

0.5000E+01 

0.1750E+01 

BLOCK  1  VARIABLES  AT  J 

=  25 

ITERATION  NUMBER: 

2500 

K 

PRESSURE 

TEMPERATURE 

MACH  NUNBER 

TOTAL  PR6SS 

U-COSINE 

V-COSINE 

X 

Y 

1 

0. 1401E+02 

0.5886E+03 

0.31 16E+00 

0.1499E+02 

0.1000E+01 

0.00006+00 

0.60006+01 

O.OOOOE+OO 

2 

0. 1 401 E»02 

0.5S85E+03 

0.3116E+0Q 

0.14996+02 

0.9999E+00 

0.16196-01 

0.6000E+QI 

0.20006+00 

3 

0.1402E+02 

0.5886E+03 

0.3107E+00 

0. 1 499E+02 

0.9996E+00 

0. 29526-01 

0.6000E+01 

0.4000E+00 

4 

0. 1403E+02 

0.5888E+03 

0.3086E+00 

0.1499E+02 

0.9990E+00 

0.45366-01 

0.60006+01 

0.60006+00 

S 

0.1405E+02 

0.5890E+03 

0.3058E+00 

0.1499E+O2 

0.99836+00 

O.5791E-01 

0.6000E+01 

0.80006+00 

6 

0. 14086*02 

0.5894 E+03 

0.3011E+00 

0.1499E+02 

0.99726+00 

O.7449E-01 

0.6000E+01 

0. 1000E+01 

7 

0.1410E+02 

0.5897E+03 

0.2943E+00 

0.1497E+02 

D.9963E+00 

0.8556E-01 

0.6000E+01 

0.1200E+01 

8 

0.14166+02 

0.5906E+03 

0.2831E+00 

0.14976+02 

0. 99446+00 

0.1058E+00 

0.6000E+01 

0.14006+01 

9 

0.14176+02 

0.5909E+03 

0.2702E+00 

0.1491E+02 

0.9936E+00 

0.1127E+00 

0.6000E+01 

0.1600E+01 

10 

0.1431E+02 

0.5926E+03 

0.2546E+00 

0.14976+02 

0.9894E+00 

0.1455E+00 

0.6000E+01 

0.1800E+01 

11 

0. 1431E+02 

0.59266+03 

0.2545E+00 

0.14976+02 

0.9923E+00 

0.1240E+00 

0.6000E+01 

0.2000E+01 

BLOCK  1  VARIABLES  AT  J 

=  29 

ITERATION  HUMBER: 

2500 

K 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

Y 

1 

0.1410E+02 

0. 58966+03 

0.2965E+00 

0.1499E+02 

0.1000E+01 

O.OOOOE+OO 

0.7000E+01 

O.OOOOE+OO 

2 

0. 1410E+D2 

O.5896E+03 

0.2965E+00 

0.1499E+02 

0.1000E+01 

0.5747E-02 

0.7000E+01 

0.2000E+00 

3 

0. 1411E+02 

0.5897E+03 

0.2963E+00 

0.1499E+02 

o.ioaoE+oi 

0.94866-02 

0.7000E+01 

O.4QDOE+O0 

4 

0. 141 1E+02 

0.5897E+03 

0.2957E+00 

0.1499E+02 

0.9999E+00 

0. 14356-01 

0.70006+01 

0.6000E+00 

5 

0. 1412E+02 

0.5898E+03 

0.2944E+00 

0.1499E+02 

0.9999E+M 

0.1640E-01 

0.70006+01 

0.8000E+00 

6 

0. 1413E+02 

0.5900E+03 

0.2926E+00 

0.14996+02 

0.9998E+00 

0.1940E-01 

0.7000E+01 

0.1000E+01 

7 

0.1413E+02 

0.5901E+03 

0.288SE+DD 

0.1497E+02 

0.99986+00 

0. 1921E-01 

0.70006+01 

0.120DE+01 

a 

0. 1415E+02 

0.5904E+03 

0.2S36E+00 

0.1496E+02 

0.99986+00 

0.1967E-01 

0.70006+01 

0.1400E+01 

9 

0.1415E+02 

0.5906E+03 

0.27B9E+DO 

0. 1494E+02 

0. 99996+00 

0. 1404E-01 

0.7000E+01 

0.1600E+01 

10 

0. 1416E+02 

0.5909E+03 

0.2799E+00 

0.1496E+02 

0.1000E+01 

0.5770E-02 

0.70006+01 

D.1800E+01 

11 

0.I416E+02 

0.5909E+03 

0.2799E+00 

0.1496E+02 

0.10006+01 

O.OOOOE+OO 

0.70006+01 

0.20006+01 

113 


AEDC-TR-89-1  5 


Listing  E-3.  Continued 


BLOCK  1  VARIABLES  AT  J  =  33  ITERATION  NUMBER:  2500 

K  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE  V-C0S1NE  X  V 

1  0.1413E+0?  Q.5901E+03  D.Z925E+00  0.1499E+02  O.IOOOE+OI  O.OOOOE+OD  O.BOOOE+Ol  O.OOOOE+OO 

2  0.1413E+02  0.5901E+03  0.2925E+00  Q.1499E+02  O.IOOOE+OI  O.1946E-02  O.BOOOE+OI  0.2000E+00 

3  0. 1413E+02  0.5901E+03  0.2927E+00  0.1500E+02  O.IOOOE+OI  0.3211602  0.8000E+01  0.4000E+00 

4  0.H13E+02  0.5900E+03  0.2929E+00  0.1500E+02  O.IOOOE+OI  0.4713E-02  O.SOOOE+OI  0.6000E+00 

5  0.1413E+02  0.59006+03  0.2927E+00  0.1500E+02  O.IOOOE+OI  0.5266E-02  O.BOOOE+Ol  O.BOOOE+OO 

6  0. 1413E+02  0. 5900E+03  0.2917E+00  O.1499E+02  O.IOOOE+OI  0.5926E-02  0.8000E+01  O.IOOOE+OI 

7  0.1413E+02  0.5900E+03  0.2891E+00  0.1497E+02  O.IOOOE+OI  0.5844E-02  0.8000E+01  0.1200E+01 

8  D. 1413E+02  0.5901E+03  0.2862E+00  0.1496E+02  O.IOOOE+OI  0.5173E-02  0.8000E+01  0.1400E+01 

9  0.1413E+02  0.5902E+03  0.2B42E+00  0.1494E+02  O.IOOOE+OI  0.3320E-02  O.SDOOE+01  0.16CDE+01 

10  0.1413E+02  0.5902E+03  0.2843E+00  0.1495E+02  O.IOOOE+OI  0.85186-03  0.8000E+01  O.IBOOE+OI 

11  0.1413E+02  0.5902E+03  0.2843E+00  0.1495E+02  O.IOOOE+OI  O.DOOOE+OO  0.8000E+01  0.2000E+01 

BLOCK  1  VARIABLES  AT  K  =  2  ITERATION  NUMBER:  2500 

J  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE  V-COSINE  X  Y 


2  0.1016E+02  0.53896+03 
4  0.1D1TE+02  0.5369E+03 
6  0.1020E+02  0.5373E+03 
8  Q.1036E+02  0.5398E+03 
10  0. 1098E+02  0.54896+03 
12  0.1199E+02  0.5630E+03 
14  0.1265E+02  0.5716E+03 
16  0.1310E+02  0.5774E+03 
18  0.1343E+02  0.5815E+03 
20  0.1367E+02  0.5844E+03 
22  0.1384E+02  0.5865E+03 
24  0.1397E+02  0.5BBOE+03 
26  0.1405E+02  0.5890E+03 
28  0. 14096+02  0.5895E+03 
30  0.1411E+0Z  0.5897E+03 
32  0.1412E+02  0.5897E+03 


0.7671E+00  0.1500E+02  O.IODOE+OI 
0.7668E+00  0.1501E+02  O.IOOOE+OI 
0.7641E+00  0.1501E+02  O.IOOOE+OI 
0.7469E+00  0.1500E+02  O.IOOOE+OI 
0.6815E+00  0.1498E+02  0.9999E+00 
0.5745E+00  0.1500E+02  0.9998E+00 
0.49906+00  0.14996+02  0.9997E+00 
0.4426E+00  0.1499E+02  0.9997E+00 
0.3993E+00  0.1499E+02  0.9997E+00 
0.3654E+00  0.1499E+02  0.9997E+00 
0.3389E+00  0. 1499E+02  0.9997E+00 
0.3192E+00  0.1499E+02  0.9998E+00 
0. 3060 E +00  0.1499E+02  0.9999E+00 
0.2986E+00  0.1499E+02  O.IOOOE+OI 
0.2947E+00  0.14996+02  O.IOOOE+OI 
0.29266+00  0. 1498E+02  O.IOOOE+OI 


-0.9109E-05  0.2500E+00  0.1000E+00 
O.1836E-04  0.7500E+00  0.1000E+00 
0.4317E-03  Q.125QE+01  0.1000E+00 
0.342BE-02  0.1750E+01  0.1000E+00 
0.1280E-01  O.2250E+01  0.1062E+00 
0.2065E-01  0. 2750E+OI  0.1167E+00 
0.2433E-01  0.3250E+01  0.1312E+00 
0.2545E-01  0.3750E+01  0.1437E+00 
D.2532E-01  0.4250E+01  0.1562E+00 
0.2438E-O1  0.4750E+01  0.1687E+00 
0.2238E-01  0.5250E+01  0.1B12E+00 
0.1882E-01  0.5750E+01  0.1937E+00 
0.12966-01  0.6250E+61  0.2000E+00 
0.76366-02  0.67506+01  0.2000E+00 
0.4018E-02  0.72506+01  0.2000E+00 
0.1948E-02  0.7750E+01  0.2000E+00 


BLOCK  1  VARIABLES  AT  K  =  4  ITERATION  NUMBER:  2500 

J  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSIHE  V-COSINE  X  Y 


2  0.1016E+02  0.5369E+03 
4  0. 1017E+02  0.5369E+03 
6  0. 1019E+02  0.5372E+03 
B  0. 1032E+02  0.5392E+03 
10  0. 1090E+02  0.5478E+03 
12  0.1199E+02  0.5630E+D3 
14  0.1266E+02  0.571 7E+03 
16  0.13126+02  0.5776E+03 
18  0. 1344E+02  0.5816E+03 
20  0.1368E+02  0.5846E+03 
22  0.1386E+02  0.5867E+O3 
24  0.1399E+02  0.5883E+03 
26  0.1407E+02  0.5892E+03 
28  0.1410E+02  0.5896E+03 
30  0.1412E+0Z  0.5898E+03 
32  0.1412E+02  0.5898E+03 


0.7672E+00  0.1500E+02 
0.7670E+00  0.1S01E+02 
0.7651E+00  0.1501E+02 
0.7513E+00  0.1500E+02 
0.6874H+00  0.1496E+02 
0.5736E+00  0.1499E+02 
0.4973E+00  0.1499E+02 
0.4408E+00  0. 1499E+02 
0.3975E+00  0. 1499E+02 
0.3635E+00  0.1499E+02 
0.3366E+00  0.1499E+02 
0.3164E+00  0. 1499E+02 
0.3034E+00  0.1500E+02 
Q-2972E+00  0.15006+02 
0.2944E+00  0.1499E+02 
0.2930E+00  0.14996+02 


O.IOOOE+OI  -0.2308E-04 
O.IOOOE+OI  0.4941E-04 
O.IOOOE+OI  0.1205E-02 
0.9999E+00  O.I051E-01 
0.9989E+00  0.4661E-01 
0.9978E+00  0.6683E-01 
0.9973E+00  0.7311E-01 
0.9972E+00  0.7453E-01 
0.99736+00  0.73836-01 
0.9975E+00  0.7117E-01 
0.99796*00  O.6521E-01 
0.9985E+00  0.53966-01 
0.9994E+00  0.3489E-01 
0.9998E+00  0.1937E-01 
O.IOOOE+OI  0.981 IE-02 
O.IOOOE+OI  0.47136-02 


0.2500E+00  0.3000E+00 
0.7500E+00  0.3000E+00 
0.1250E+01  0.3000E+00 
0.1750E+01  0.3000E+00 
0.2250E+01  0.3187E+00 
0.2750E+0I  0.I562E+00 
O.3250E+01  0.3937E+00 
0.3750E+01  0.43126+00 
0.4250E+01  0.4687E+00 
0.4750E+01  0.5062E+00 
0.5250E+01  0.5437E+00 
0.S7S0E+01  Q.5812E+00 
0.62506+01  0.6000E+00 
0.6750E+01  0.6000E+00 
0.7250E+01  0.6000E+00 
0.7750E+01  0.6000E+00 
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Listing  £-3.  Concluded 


BLOCK  1  VARIABLES  AY  K 

=  6 

ITERATION  NUMBER: 

2S00 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U- COSINE 

V-COSINE 

X 

2 

0. 1016E+02 

0.S369E+03 

0.7672E+00 

0.1501E+02 

0.1000E+01 

-0.3146E-04 

0.2500E+00 

4 

0. 1017E+02 

Q.5369E+03 

0.7673E+00 

0.1501E+02 

0.1000E+01 

0.3506E-04 

0.7500E+00 

6 

0. 1017E+02 

0.5370E+CS 

0. 7671 E +00 

0.1501E+02 

0. 1CD0E+01 

0.1398E-02 

0.1250E+01 

a 

0. 1023E+02 

0.5379E+03 

0.7609E+00 

0.1501E+02 

0.9999E+00 

0. 14B7E-01 

0.1750E+01 

10 

0. 1076E+02 

0.5457E+G3 

0.6996E+00 

0.1491E+Q2 

0.9966E+00 

0.8295E-01 

0.2250E+01 

12 

0. I200E+02 

0.5632E+03 

0.5715E+00 

0.1498E+02 

0.9934E+00 

0.1148E+00 

0.2750E+01 

14 

0. 1268E+02 

0.5721E+03 

0.4941E+00 

0. 1499E+02 

0.9924E+00 

0. 1227E+00 

0.3250E+01 

16 

0. 1314E+02 

0.S779E+03 

0.437SE+00 

0.1499E+02 

0.9923E+00 

0.1238E+00 

0.3750E+01 

18 

0. 1347E+02 

0.5B19E+03 

0.3946E+00 

0.1499E+02 

0.9925E+00 

0.1224E+00 

0.4250E+01 

20 

0. 1371E+02 

0.5849E+03 

0.3601E+00 

0.1499E+02 

0.9930E+00 

0.1184E+00 

0.4750E+01 

22 

0. 1369E+02 

0.5871E+03 

0.3321E+00 

0.1499E+02 

0.9940E+00 

0.1095E+00 

0.5250E+01 

24 

0.1403E+02 

0.5B88E+03 

0.3099E+00 

0.1499E+02 

0.9959E+00 

0.9085E-01 

0.5750E+01 

26 

0.141 1E+02 

0.5898E+03 

0.2967E+00 

0.1S00E+02 

0.9985E+00 

0.5403E-01 

0.6250E+01 

28 

0.1413E+02 

0.5900E+03 

0.2931E+00 

0.1500E+02 

0.9996E+00 

0.272 IE- 01 

0.6750E+01 

30 

0.1413E+02 

0.5900E+01 

0.2921E+00 

0.1499E+02 

0.9999E+0D 

D.1Z76E-01 

0.7250E+01 

32 

0.1413E+02 

0.5900E+03 

0.2917E+00 

0.1499E+02 

0. 1000E+01 

0.5926E-02 

0.7750E+01 

BLOCK  1  VARIABLES  AT  K 

=  8 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

2 

0.1016E+02 

0.5369E+03 

0.7673E+00 

0.15Q1E+02 

0. tOOOE+OI 

-0.2826E-04 

0.2500E+00 

4 

0.1016E+02 

0.5368E+03 

0.7676E+00 

0.1501E+02 

0.1000E+01 

-0.9063E-05 

0.7500E+00 

6 

0.1015E+C2 

0.S367E+03 

0.7696E+00 

0.1S0ZE+02 

0.1000E+01 

0.8392E-03 

0.1250E+01 

8 

D.1009E+02 

0.5357E+03 

0.7771E+00 

0. 1504E+02 

0.9999E+00 

0.1374E-01 

0.1750E+01 

10 

0.1052E+02 

0.5424E+03 

0.7178E+00 

0.1483E+02 

0.9922E+00 

0.124EE+00 

0.2250E+01 

12 

0.1204E+02 

0.5638E+C3 

0.5678E+00 

0.1499E+02 

0.9863E+00 

0.165ZE+00 

0.2750E+01 

14 

0.1272E+02 

0.5728E+03 

0.4895E+00 

0. 1499E+02 

0.98S0E+00 

0.172SE+00 

0.3250E+D1 

16 

0. 131BE+02 

0.5785E+03 

0.4323E+00 

0. 1498E+02 

0.9849E+00 

0.1729E+00 

0.3750E+01 

IB 

0. 135QE+02 

C.5B25E+03 

0.3882E+00 

0.1498E+02 

0.9B52E+00 

0.1714E+00 

0.4250E+01 

20 

0.1374E+02 

0.5855E+03 

0.3522E+00 

0.1497E+02 

0.9858E+00 

0. 1676E+00 

0.4750E+01 

22 

0.1393E+02 

0.587BE+03 

0.3214E+00 

0.1497E+02 

0.9874E+00 

0.158SE+00 

0.5250E+01 

24 

0.1409E+02 

0.5898E+03 

0.2948E+00 

0.1497E+02 

0.9908E+00 

0.1350E+00 

0.5750E+01 

26 

0.1419E+02 

0.5909E+03 

0.2808E+00 

0. 1498E+0Z 

0.9977E+OD 

Q.6798E-01 

0.6250E+01 

2B 

0. 1416E+02 

0.S906E+03 

0.2822E+00 

0.1497E+02 

0.9996E+00 

0.2931E-01 

0.6750E+01 

30 

0.1415E+D2 

0.5904E+03 

0.2844E+00 

0.1496E+02 

0.9999E+00 

0.1225E-01 

0.7250E+01 

32 

0.14T4E+02 

0.5904E+03 

0.2861 E+00 

0.1497E+02 

0.1000E+01 

0.5173E-02 

0.7750E+01 

BLOCK  1  VARIABLES  AT  X 

=  10 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSIHE 

X 

2 

0.1016E+02 

0.536BE+03 

0.7674E+00 

0. 15Q1E+02 

0.  IBOOE+OI 

-0.1145E-04 

0.2500E+00 

4 

0.1016E+02 

0.5368E+03 

0.7678E+00 

0.1501E+02 

0.1000E+01 

-0.394 7E-05 

0.7500E+00 

6 

0.1014E+02 

0.5364E+03 

0.7717E+00 

0.1SQ3E+D2 

0.1000E+01 

-0.9950E-04 

0.1250E+01 

8 

Q.9853E+01 

0.5322E+03 

0.8056E+00 

0.  IS10E+D2 

0.1000E+D1 

0.2055E-0Z 

0. 1750E+01 

10 

0.1019E+02 

0.5383E+03 

0.7348E+00 

0. 1459E+D2 

0.9844E+00 

0. 1761E+00 

0.2250E+01 

12 

0.1211E+02 

0.5654E+03 

0.5489E+00 

0. 1487E+D2 

0.9752E+00 

0.2213E+00 

0.2750E+01 

14 

0.1278E+02 

0.5740E+03 

0.4725E+00 

0. 1489E+02 

0.9743E+00 

0.2254E+00 

0.3250E+01 

16 

0.1323E+02 

0.5796E+03 

0.4180E+00 

0. 1491E+02 

0.9746E+00 

0.2237E+00 

0.3750E+01 

18 

0.1354E+02 

0.5834E+03 

0.375BE+00 

0. 1493E+02 

0.9751E+00 

0.2218E+00 

0.4250E+01 

20 

0.1378E+02 

0.5863E+03 

0.3407E+00 

0.1493E+02 

0.9756E+00 

0.2195E+00 

0.4750E+01 

22 

0.1398E+02 

0.5887E+03 

0.3085E+00 

0.1493E+D2 

0.9768E+00 

0.2141E+00 

0.5250E+01 

24 

0.1418E+02 

0.5911E+03 

0.2733E+00 

0. 1493E+02 

0.9796E+00 

0.2009E+00 

0.5750E+01 

26 

0.1431E+02 

0.5927E+03 

0.2609E+00 

0.1500E+02 

0.9981E+00 

0.620BE-01 

0.6250E+01 

28 

0.1420E+02 

0.5913E+03 

0. 2760E+0C 

0.1497E+02 

0.9999E+00 

0.1251E-01 

0.6750E+01 

30 

0.1416E+02 

0.5908E+03 

0.2818E+00 

0. 1496E+02 

0. 1000E+01 

0.2368E-0Z 

0.7250E+01 

32 

D.1414E+02 

0.5907E+03 

D.2842E+00 

0. 1496E+02 

0. 1000E+01 

0.8518E-D3 

0.7750E+01 

Y 

O.SQQOE+OO 
0.5000E+00 
0.5000E+00 
0.5000E+00 
0.5312E+00 
0.5937E+00 
0.6562E+00 
0.7187E+00 
0.781 2E+00 
0.8437E+00 
0.9062E+00 
0.9687E+00 
0. 1000E+01 
0.1000E+01 
0. 1000E+01 
D.  IQOOE+D! 


Y 

0.7000E+00 

0.7000E+00 

0.7000E+00 

0.700QE+00 

0.7437E+0C 

0.8312E+00 

0.9187E+D0 

0.1006E+01 

0.1094E+01 

0.1181E+01 

0.1269E+C1 

0.1356E+D1 

0.1400E+01 

0.1400E+01 

0.1400E+01 

Q.1400E+C1 


Y 

0.9000E+00 
0.9000E+00 
0.9000E+00 
0.9000E+00 
0.9562E+00 
0.1069E+01 
0.1181 E+01 
0. 1294E+01 
0. 1406E+01 
0.1519E+01 
0.1631E+01 
0. 1744E+01 
0.1800E+01 
O. 1800E+01 
0.1600E+01 
0. 1800E+01 
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Listing  E-4.  Grid  and  Initial  Condition  Generator  (3-D) 


1 

1. 

PROGRAM  ICFILE 

2 

2. 

PARAMETER! JO-33 , KD-1 1 ,10-21 ) 

3 

3. 

DIMENSION  R( JD,KD,LD),RU( JD,K0,L0),RV( JD,KD,LD) 

4 

4. 

DIMENSION  RU(JD,KD,LD),E{JD,KD,LD) 

5 

5. 

DIMENSION  X(JD,KD,LD),Y(JD,KD,LD)rZ{ JD,KD,LD) 

6 

6. 

DATA  C/1 .4/ 

7 

7. 

GN1-G-1. 

e 

8. 

DELX=8./32 

9 

C 

FORM  THE  'X'  GRID  ARRAY 

10 

9. 

DO  1  J=1,JD 

ii 

10. 

DO  1  K=1,KD 

12 

11. 

IF(J.EO.I)  THEN 

13 

12. 

X(J,K, 11 )»Q. 

14 

13. 

ELSE 

15 

14. 

X(  J,K,  11  >=X(J-  1,K,  11  >4f)ELX 

16 

15. 

END  IF 

17 

16. 

1 

CONTINUE 

10 

C 

FORM  THE  AMO  >2*  GRID  ARRAYS 

19 

17. 

DO  Z  J-1 , JD 

20 

10. 

IF(X<J,KD,11).LE.2.)  Y0=1. 

21 

19. 

IF(X(J,KD,11).GT.6.)  YO-2. 

22 

20. 

IF(CX(J,KD,11).GT.2.>.ABD.<XCJ,XD,11>.LE.6.))  THEN 

23 

21. 

YO-1 .+<X< J,KD, 1 1 >-2. 5*0.25 

24 

22. 

END  IF 

25 

23. 

DELY-YO/CKD-1) 

26 

24. 

Y<J,1, 115=0.0 

27 

25. 

Z(J, 1,11}=0.0 

2S 

26. 

DO  2  K=Zi*D 

29 

27. 

¥CJ,K,11)-Y(J,K-lt11J*DELT 

30 

28. 

Z(J,K,1 15=0.0 

31 

29. 

2 

CONTINUE 

32 

C 

FORM  THE  ARRAYS  OF  N0M-DIHENS10MAL  CONSERVATION  VARIABLES 

33 

c 

CONSISTENT  WITH  A  FREE-STREAH  MACH  NUMBER  OF  0.29 

34 

30. 

FMACH=0. 29 

35 

31. 

FACT=(I.+.2*FHACH**2) 

36 

32. 

PBAR-FACT**(“3.5>/G 

37 

33. 

DO  1000  J=1, JD 

38 

34. 

DO  2000  X-1,KD 

39 

35. 

R<J,K,11)=FACT**(*2.55 

40 

36. 

RU( J , X, 1 1 5  =R  t  J , K, 1 1  )*FHACH*SORT  ( 1 .  /FACT  ) 

41 

37. 

RV(J,K,11J=0. 

42 

30. 

RU(J,K, 115=0. 

43 

39. 

E{J,K,11)=PBAR/GH1+.5*(RU<J.K,115**2S/R(J,K,115 

44 

40. 

2000  CONTINUE 

45 

41. 

1000  CONTINUE 
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Listing  E-4.  Concluded 


46  C  EXTRAPOLATE  THE  GRID  6  CONSERVATION  VARIABLES  INTO  THE  ‘2>  PLANE 

47  42.  DELZ  =  0.25 

48  43.  DO  100  L-12,21 

49  44.  DO  100  J=1,J0 

50  45.  DO  100  K>1,KD 

51  46.  H-22-L 

52  47.  X(J,K.L)=X(j,K.11> 

53  48.  X(J1K,M)=X( J,X,1 1 > 

54  49.  1'(J,K,L)-r|JfK,11) 

55  50.  r(J,K,H>-r<J,X,11> 

56  51.  2(J>K,LW{JrKI11)+DEL2*(L-11) 

57  52.  Z<J,K,M)=-ZCJ,K,L) 

58  53.  R<J,K.L>=R(J,K,11> 

59  54.  A(J,K,H)=R{J,K,11) 

60  55.  RU(JIK,L)=RLI(J1KI11) 

61  56.  RUCJ.X.M^RUCJ.Kfll) 

62  57.  AV(J,K,L)=RVl(J,K,11) 

63  58.  RV(J,K,M)=:RV(J(K,11) 

64  59.  RWCJ,K,L)=RU(J,K,11) 

65  60.  RUCJ,K,M)-RU(J,K,11) 

66  61.  E(J,K,L)-E{ J,K, 11 ) 

67  62.  E(J,K,M)=F<J,K,11) 

68  63.  100  CONTINUE 

69  64.  MClE0 

70  65.  URITE(20JNC1,G 

71  66.  URITE(20)J0,KDILD 

72  67.  WRITE(20)X,V,Z 

73  66.  URITE(20)RrRU,RV,RU,E 

74  69.  STOP 

75  70.  END 
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Listing  E-5.  Execution  and  Input  File  (3-D) 


//A05569X  JOB  CSVT ,ATTQOOOO,DD,7B904912) , 'DON  TODD  EL2  CFD 1 , 
U  CLASS=X,TIME=<f55,U$ER=A05569,PASSWaRD=XXXXXXXX,HSGCLASS=Z, 
il  MSGLEVEL=1,PRTY»8,NOTIFY=A05569 
H* 

/‘ROUTE  PRINT  ANTO 

/* JOBPARH  ROON~S  2ND  FLOOR  00  BLDG  1099 

//* 

11  EXEC  CRAY 

CRSUBMIT  F (05 JOB)  N0T1FY(A05569)  DEST(RHTO)  PRINT (A)  HOLD 
//OSJ08  DD  * 

JOB , JN =A05569Y , T-900 , MFl . 

ACCOUNT ,AC=7B904910,U5=A05569. 

FETCH, D  N=CODE , TEXT = 1 D  SN=A0SS69 . BARC (8ARC3D ) , D I SP  =SHR ' . 
CFT,J=CODE,L=0. 

ACCESS. DN=BNCMUB,PDN=BNCHL1B,ID=&MCHMRIC,0UN=SYSTEH. 

ACCESS ,DN= FT02, PON= I CCASE2. 

LDR,LIB=BNCHHB. 

•SAVE  ,DN=FT04,PDM=RSCA5E2. 

DISPO5E,DN=FT04,DC=ST,DF=TR,TEXT=* 
'DSN-A05569.TRCASE2.REST,OISP=( ,CATLG>, ' " 
'UNIT'DISK.SPACEsCCYL.dBJ.RLSE), ' ■ 
'OCB=<RECFH=F,LRECL=40961BLKSI2E-A096J'. 

/EOF 
S INPUTS 

NHAX=2500,  NP=2500,  NBL0CK=1, 

: JHAX=53,  KHAX=11,  LHAX-21 . 

PREF=1S.O,  TREFR-6D0., 

1FXPRT=1, 

DIS2-0.O,  0IS4-0.30, 

DTCAP-4.0,  PCaMAX-ID.O, 

NSPRT=50,  ST0PL2-1.E-20, 

Send 

(BLOCK 

NPSEG=3, 

INVISC{ 1 )=0,  INV[SC(2)~0,  INVISCC3)=0, 

SEND 

SPRTSEG 

JKLPIO,  1,15  =  1,33, 4,  JKLP[(  1,2,1)  =  1,11,1, 

JKLPI( 1,3,1)= 11, 11,1,  IPORD( 1,1 )=2,1 , 

JKLPIC1, 1,2)=2,23,2,  JKLP1C1 ,2,25=2,10,2, 

JKLPI(1,3,2)=1 1,11,1,  I PORD( 1,25=1,2, 

JKLPIC1, 1,3)-10, 30, 10,  JKLP1 (1,2,35=4,8,4, 

JKLPI (1,3,35=1 ,21,1,  [P0RD(1 ,35=3, 1 , 

SEND 

(BOUNDS 

NJSEC=2, 

JLTNE(15=1,  JTYPEC1 >=0,  JSIGNC1>=1, 

JKL0U(1 5=2,  JKHI GH( 15=10, 

JLL0W(1 5=2,  JLHIGH(1 )=20, 

PRESS j( 1 5=0.7142857,  TEHPJ< 15=1.0, 

JLIHE(2)=33,  JTYPE(2)=0,  JSIGN(2)='1, 

JKLOW(25=2,  JKHIGH(2)=10, 

JLLOU(2)=2,  JLH1GH(2)=2D, 

PRESSJ(2)=0. 67265,  TEMPJ(25=1 .0, 

NKSEG-2, 

KLIHEd  )=1 ,  KTYPE(1 5=50,  KSIGN(1)=1, 

KJL0U(1)=1,  KJNIGH(1)=33, 

KLL0U(1)=1,  KLNIGH(1 5=21 , 

KLINE<2)=1 1 ,  KTYPE(2)=50,  KSIGN(2)=-1, 

KJL0U(2>=1 ,  KJH1GH(2)=33, 

KLL0U(2)=1,  KLHIGH(2)=21 , 

NLSEG=2, 

LL1NE(1>=1,  LTYPE(1 )=50,  LSIGN(1)=1, 

LJL0W(1 )=1 ,  LJHIGH(1)=33, 

LKL0U< 1 5=2,  LKHIGH( 1 5=10, 

LLINE(2>=21 ,  LTYPE(2>=50,  LSiGN<25=-1, 

LJL0U(2)=1,  LJHIGH(2)=33, 

LKL0U<2)=2,  LKHIGN<2>=10, 

(END 

/EOJ 
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listing  E-6.  Diverging  Nozzle  Output  (3-D) 


NAMELIST  INPUTS: 


PREF 

= 

0. 150000E+02 

N BLOCK 

- 

i 

TREFR 

= 

0.600000E+03 

NHAX 

s 

2500 

VRAT 

= 

-0. 66666 7E+00 

NC 

■ 

0 

TSUTH 

■ 

0.19S600E+03 

NSPRT 

a 

50 

RE 

= 

O.OOOOOOE+OO 

NP 

s 

2500 

PR 

5 

0.720000E+00 

IFXPRT 

= 

1 

PRT 

= 

0.900000E+OD 

IFXPLT 

a 

0 

DIS2 

= 

O.OOOOOOE+OO 

L2PL0T 

s 

0 

DIS4 

■ 

0 .300000E+00 

I  PLOT 

= 

0 

DTCAP 

= 

0.400000E+D1 

LMCOE 

= 

1 

PCOMAX 

a 

0.100000E+02 

MBORD 

= 

1 

SPLEND 

a 

0.10000QE+01 

NUHDT 

■ 

0 

SHOO 

s 

O.OOOOOOE+OO 

I VARDT 

= 

2 

STOP L 2 

= 

0.100000E-19 

1  SOLVE 

= 

1 

STOPTR 

■ 

0.500000E+C1 

IRHS 

= 

1 

ALPHA 

s 

O.OOOOOOE+OO 

IFILTR 

= 

1 

BETA 

XHACH 

_ 

Q.OQOOQOE+OO 

O.OOOOOOE+OO 

INUTUR 

■ 

1 

THE  ORDER  OF  BLOCK  PROCESSING  FOLLOWS 
1 

FOR  BLOCK  1 

JMAX  -  33  KM  AX  =  11  LMAX  =  21 
NH  =  33  NIP  =  693  IJKL  =  7623 

NAMELIST  BLOCK  FOR  BLOCK  T 

GAMMA  *  0.140000E+01  IHVISC  -  0  0  0 

COFHIX  -  0.9000QQE-01  LAMIN  =  000 

DTBLK  *  O.OOOOOOE+OO  NPSEG  =  3 

NBCSEG  -  0 


NAMELIST  PRTSEG  FOR  BLOCK  1 


JA 

JB 

US 

KA 

JKLPI 

KB 

KS 

LA 

LB 

LS 

IPORD 

J  K 

1 

■  1. 

33 

4 

1 

11 

1 

11 

11 

1 

2 

1 

2 

2 

23 

2 

2 

10 

2 

11 

11 

1 

1 

2 

3 

10 

30 

10 

4 

a 

4 

1 

21 

1 

3 

1 

NAMELIST  BOUNDS  FOR  BLOCK  1 


JSEG 

JUNE 

JKLOW  JKHIGH 

JLLOU  JLHIGK 

JTYPE 

INTERJ 

JSIGM 

PRE5SJ 

TEMPJ 

JTYPE 

1 

1 

2 

10 

2 

20 

0 

1 

0.714286E+00 

0.100000E+01 

FREE 

2 

33 

2 

10 

2 

20 

0 

-1 

0. 67285 OE+OO 

0. 100000E+01 

FREE 

KSEG 

KLINE 

1C  J  LOU  KJHIGH 

KLLOW 

KLHIGH 

KTYPE 

INTERK 

KSIGN 

PRESSK 

TEMPK 

KTYPE 

1 

1 

i 

33 

1 

21 

50 

1 

SLIP 

2 

11 

i 

33 

1 

21 

50 

-1 

SLIP 

LSEG 

LLINE 

LJLOW  LJHIGH 

LKLOU 

LKHIGH 

LTYPE 

INTERL 

ISIGN 

PRESSL 

TEMPL 

LTYPE 

1 

1 

1 

33 

2 

10 

50 

1 

SLIP 

2 

21 

1 

33 

2 

10 

50 

-1 

SUP 

GRID  PATCHE5  FOR  BLOCK  1 

J-PATCHES  MINIMUM  MAXIMUM 

J  K  L  J  K  L 

1  2  2  2  32  10  20 

K-PATCHES  MINIMUM  MAXIMUM 

J  K  L  J  K  L 

1  2  2  2  32  10  20 

L-PATCHES  MINIMUM  MAXIMUM 

J  K  L  J  K  L 

1  2  2  2  32  10  20 
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Listing  E-6.  Continued 


COUNT  BLOCK  DT  LZ  RESIDUAL  HASS  FLUK 


50 

1 

0.4000E+01 

0.8454E-04  -0.2655E-02 

100 

1 

a. 40006*01 

0. 1924E-04  0.3311E-03 

150 

1 

a.4000E*01 

0.9179E-05  -0.7729E-04 

200 

1 

0.40006*01 

0.7648E-05  -0.2531E-03 

250 

1 

0.4000E*01 

0.5695E-05  -C.1990E-03 

300 

1 

0.4000e*01 

0.420SE-05  -0.1436E-03 

350 

1 

0.40006*01 

0.3255E-05  -0.1120E-03 

400 

1 

0.40006*01 

O.2519E-05  -0.8790E-04 

450 

1 

0.4000E+01 

0.1934E-05  -0.67S3E-04 

500 

1 

0.4000E+01 

0.148SE-05  -0.5221E-04 

550 

1 

0.4000E+01 

0.1141E-05  -0.4020E-04 

600 

1 

0.4000E+01 

0.8755E-06  -0. 30906-04 

650 

1 

0.4000E+C1 

0.6714E-06  -0.2372E-O4 

700 

1 

0.40006*01 

0.5147E-06  -0.1820E-04 

750 

1 

0.400CE+01 

0.39446-06  -0.1395E-04 

800 

1 

0.400CE+01 

0.3021E-06  -0.1069E-04 

850 

1 

0.4000E+01 

0.2314E-06  -0.81936-05 

900 

1 

Q.4000E+01 

0.1772E-06  -0.6275E-05 

950 

1 

0.4000E+01 

0. 1356E-06  -0.480AE-05 

1000 

1 

0.4Q006+01 

0.1038E-06  -0.36806-05 

1050 

1 

0.4000E+01 

0.7948E-07  -0.2B17E-O5 

1100 

1 

0.4000E*01 

0.6C84E-07  -0.2156E-05 

1150 

1 

0.4000E*01 

D.4656E-07  - 0 . 165 1 E -05 

1200 

1 

0.4000E+01 

0.3564E-07  -0.1263E-05 

1250 

1 

0.4000E*01 

0.2727E-07  -0.9671E-06 

1300 

1 

0.4000E+01 

0.2087E-07  -0.7402E-06 

1350 

1 

0.4000E+C1 

0. 1597E-07  -0.566SE-06 

1400 

1 

0.4aaOE*01 

0. 1222E-07  -D.4336E-06 

1450 

1 

C.4000E*01 

0.9355E-08  -0.3318E-06 

1500 

1 

0.4000E*01 

0.7159E-O8  -0.25406-06 

1550 

1 

0.4000E+01 

0.5479E-08  -0.1944E-06 

1600 

1 

0.4000E*01 

0.4193E-06  -Q.1487E-06 

1650 

1 

0.4000E+01 

0.3209E-08  -0. 11386-06 

1700 

1 

0.4000E*01 

0.2456E-08  -0.B712E-07 

ITS? 

1 

0.40006*01 

0.1879E-08  -0.6668E-07 

1800 

1 

0.40006*01 

0.1438E-08  -0. 51036-07 

1850 

1 

C.4000E*01 

0.1101E-0a  -0.3905E-07 

1900 

1 

0.40006*01 

0.8423E-09  -0.2989E-O7 

1950 

1 

0.4000E*01 

0.6447E-O9  -0.22B7E-07 

2000 

1 

0.4000E+01 

0.4933E-09  -0.1750E-07 

2050 

1 

0.4000E+01 

0.3776E-09  -0.1340E-07 

2100 

t 

0.4000E+01 

0.2889E-09  -0.1025E-07 

2150 

1 

0.4000E*01 

0.221  IE-09  -0.7846E-08 

2200 

1 

0.40006*01 

0.1692E-09  -0.6005E-08 

2250 

1 

0. 40006+01 

0. 1295E-09  -0.4S95E-08 

2300 

1 

0.4000E+0! 

0.9911E-10  -0.3517E-08 

2350 

1 

0.4000E+01 

0.75B5E-1O  -0.2691E-0B 

2400 

1 

0. 40006*01 

0.5805E-10  -0.2060E-08 

2450 

1 

0.40006*01 

0.4443E- 10  -0.1576E-08 

2500 

1 

0.4000E+01 

0.3400E-10  -0. 12066-08 

MOMENTUM  FLUXES  ENERGY  FLUX 

X  Y  Z 

0. 19O4E-02  0.4166E-D2  -0.4503E+O1  -0.34S1E-02 
D. 3661 E -02  0.4076E-02  -0.7677E-01  O.6769E-03 
0.1970E-02  0.1665E-DZ  0.3355E-01  0.844SE-04 
0.111 IE-02  0.9213E-03  -0.9054E-02  -D.2O33E-0S 
0.7879E-O3  0.6606E-03  -0.2S14E-01  -0.1621E-03 
0.5746E-03  0.471  IE- 03  -0.2434E-01  -0.1108E-03 
0.41 19E-03  0.3305E-03  -0.2747E-01  -O.B689E-04 
0.29aSE-03  0.Z367E-03  -0.Z418E-01  -0.6917E-04 
0.2197E-03  D.1695E-03  •0.2764E-01  -0.5355E-04 
0.1629E-03  0.12S2E-03  -0.2565E-01  -0.413CE-04 
0.1216E-03  0.9262E-04  -0.2766E-01  -0.3189E-04 
0.9121E-04  0.6B16E-O4  -0.26Z5E-01  -0.2456E-04 
D.6675E-04  0.5168E-04  -0.2778E-01  -0.1888E-04 
0.5199E-04  0.3861E-04  -0.2673E-01  -0.1450E-D4 
0.3942E-04  0. 29086-04  -0.2766E-01  -0.1113E-04 
0.2996E-04  0.2224E-04  -0.Z716E-01  -0.8532E-05 
0.2280E-04  0.1670E-04  -0.2750E-01  -0.6S41E-05 
0. 1737E-04  0.1279E-04  -0.2746E-01  -0.5011E-05 
0.1326E-04  0.9744E-0S  -0.27416-01  -0.3839E-05 
0.1012E-04  0.73B1E-05  -0.2758E-01  -0.2940E-05 
0.7729E-05  0.36826-05  -0.2743E-01  -0.2251E-0S 
0.5907E-05  0.4312E-05  -0.27S9E-01  -0.1723E-05 
0.4515E-05  0.3298E-05  -0.2746E-01  -0.1319E-05 
0.3453E-05  0.2531E-0S  -0.2762E-01  -0.1010E-05 
0.2640E-05  0.1922E-05  -0.2745E-01  -0.7731E-06 
0.2020E-05  0.1479E-05  -0.2765E-01  -0.5917E-06 
0.1545E-0S  0. 11286-05  -0.2746E-01  -0.4529E-06 
0.11B2E-05  0.8615E-06  -0.2763E-01  -0.3466E-06 
0.9Q45E-06  0.6622E-D6  -0.2751E-01  -0.2653E-06 
0.6921E-06  0.5042E-06  -0.27386-01  -0.2030E-C6 
0. 52966-06  C.3868E-06  -0.27566-01  -0.1554E-O6 
0.40536-06  0.29616-06  -0.27S6E-01  -O.I189E-06 
0.3101E-06  0.2259E-06  -0.2756E-01  -0.9102E-07 
0. 23736-06  0.17366-06  -0.2757E-01  -0.6966E-07 
0.18166-06  0. 1324E-06  -0.27S4E-01  -0.5331E-07 
0.1390E-06  0.1014E-06  -0.2756E-01  -0.4080E-07 
0.1064E-06  0.7774E-07  -0.2756E-01  -0.3122E-07 
0.8140E-07  0.5932E-07  -0.2750E-01  -0.2390E-07 
0.6229E-07  O.4551E-07  -0.2760E-01  -0.1829E-07 
0.4767E-07  0.3479E-07  -0. 27546-01  -0.1400E-07 
0.3648E-07  0.2661E-07  -0.2752E-O1  -0.10716-07 
0.2792E-07  0.2040E-07  -0.2749E-01  -0.8197E-D8 
0.2137E-07  0.155BE-07  -D.2738E-01  -0.6273E-08 
0.1635E-07  O.1194E-07  -0.2756E-01  -0.4801E-0B 
0.1251E-07  0.9138E-08  -0.2758E-01  -0.3674E-08 
0.9577E-08  O.6984E-08  -0.2773E-01  -0.2812E-08 
0.7330E-08  0.5354E-08  -0.Z750E-01  -0.21526-08 
0.5609E-08  0.4092E-08  -0.2677E-01  -0.1647E-08 
0.4293E-08  0.3133E-08  -0.2777E-01  -0.1260E-08 
0.3285E-08  0.Z399E-08  -0.2781E-01  -0.9646E-09 


MAX  PERCENT 
VARIATION 

0.12286*01 

0.18086*00 

0.8304E-01 

0.1044E+00 

0.6569E-01 

0.6530E-O1 

0.5203E-01 

0. 41446-01 

0.3243E-01 

0.2522E-01 

0.1955E-01 

0.151  IE-01 

0.1165E-01 

0.B963E-02 

D.68B9C-02 

0.52886-02 

0.4057E-02 

0.31 1QE-02 

O.2384E-02 

0.1B26E-02 

0.1399E-02 

0.1071E-02 

0.62016-03 

0.6278E-03 

0.4806E-03 

0.3679E-03 

0.2816E-03 

0.2155E-03 

0.1650E-Q3 

0.1263E-03 

0.9663E-04 

0.7395E-O4 

0.5660E-04 

0.4332E-04 

0.3315E-04 

0.Z537E-04 

0.1942E-O4 

0.14866-04 

0. 11376-04 

0.8703E-D5 

0.6661E-05 

0.50976-05 

0.3901E-05 

D.2985E-05 

0.22856-05 

0.1749E-05 

0.1338E-O5 

0.1024E-05 

0.7838E-06 

O.5998E-06 


MAX 

LOCATION 

J 

K 

L 

32 

10 

2 

32 

10 

2 

4 

10 

2 

9 

10 

2 

9 

10 

20 

9 

10 

2 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

ID 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

2D 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

ID 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

10 

20 

9 

ID 

20 

9 

10 

20 

9 

ID 

20 

9 

10 

20 

9 

to 

20 

9 

10 

20 
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Listing  E-6.  Continued 


BLOCK  1  VARIABLES  AT  L. 

,  J  «  11, 

1 

ITERATION  1 

HUMBER:  2500 

K 

PRESSURE 

TEMPERATURE 

HA CM  NUMBER 

TOTAL  PRESS 

U- COSINE 

V-COSINE  W* COSINE 

X 

r 

z 

1 

0. 1018E+02 

0.5370E+03 

0.7656E+00 

0.1500E+02 

0.1000E401 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

2 

0.101 SE+ 02 

0.5370E+0S 

0.7656E+00 

D.1500E402 

0.1000E401 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

O.IOOOE+OO 

O.OOOOE+OO 

3 

0.1018E+02 

0.537DE+03 

0.7656E+00 

0.1500E402 

0.10006+01 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

0.2000E+00 

O.OOOOE+OO 

4 

0.1018E+C2 

0.5370E+03 

0.7656E+00 

0.150CE+02 

0.1000E+01 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

0.3000E+00 

O.OOOOE+OO 

5 

0.101 8E»02 

0.5370E+C3 

0.7657E+00 

0. 1500E+02 

0. 1000E+01 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

0.4000E+00 

O.OOOOE+OO 

6 

0.1018E+02 

0.5370E+03 

0.7657E+00 

D.1500E+02 

0. lOOOE+OI 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

0.5000E+00 

O.OOOOE+OO 

7 

o . 1 oi se*02 

0.5370E+03 

0.7657E+0D 

0.1500E+02 

0.1000E+01 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

0.6000E+00 

O.OOOOE+OO 

a 

0. 1018E+02 

0.5370E+03 

0.7657E+00 

0.1S00E402 

0. 100DE+01 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

0.7000E+00 

O.OOOOE+OO 

9 

Q.1017E+02 

0.5370E+03 

0.7658E+DC 

0.1 5 ODE +02 

0.10006+01 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

0.8000E+00 

O.OOOOE+OO 

10 

0.1017E+QZ 

0.5370E+03 

0.7658E+00 

0.1S00E+02 

0. 1000E+01 

O.OOOOE+OO  O.OOOOE+OO 

O.OOOOE+OO 

0.9000E+00 

O.OOOOE+OO 

ii 

0.1017E+02 

0.5370E+03 

0.76S8E+00 

0. 1500E+02 

0. 1000E+01 

0.00006+00  O.OOOOE+OO 

O.OOOOE+OO 

O.IOOOE+OI 

O.OOOOE+OO 

BLOCK  1  VARIABLES  AT  L. 

J  a  11, 

5 

ITERATION  NUMBER:  2500 

K 

PRESSURE 

TEMPERATURE 

MACH  HUMBER 

TOTAL  PRESS 

U-COS1NE 

V-COSINE  U- COSINE 

X 

y 

z 

1 

0.1018E+02 

0.5372E+03 

0.7647E+C0 

0.1500E+02 

0.1000E+01 

O.OOOOE+OO  -0.1067E-12 

O.IOOOE+OI 

O.OOOOE+OO 

O.OOOOE+DD 

2 

0.1018E+02 

0.5372E+03 

0. 7647E+00 

0.1500E+02 

0.1000E4Q1 

0.2447E-03  -0.1066E-12 

O.IOOOE+OI 

O.IOOOE+OO 

O.OOOOE+OO 

3 

C.1D18E+02 

0.5371E+03 

0. 7646E+00 

0.1500E+02 

O.IOOOE+OI 

0.53286-03  -0.1077E-12 

O.IOOOE+OI 

0.2000E+00 

O.OOOOE+OO 

4 

C.1C18E+02 

0.5371E+03 

0.7650E+00 

0.1500E+02 

O.IOOOE+OI 

0.7447E-03  -0.1070E-12 

O.IOOOE+OI 

0.3000E+00 

O.OOOOE+OO 

5 

0. 1018E+02 

0.5371E+03 

0.7653E+00 

0.1S00E+02 

O.IOOOE+OI 

0.9193E-03  -0.1069E-12 

O.IOOOE+OI 

0.4000E+00 

O.OOOOE+OO 

6 

0.1017E+02 

0.5370E+03 

0.7655E+00 

0.1499E+02 

O.IOOOE+OI 

0. 1000E-02  -0.1060E-12 

O.IOOOE+OI 

0.5000E+00 

O.OOOOE+OO 

7 

0.1017E+02 

O.5369E+03 

O.7658E+0O 

0.1499E+Q2 

O.IOOOE+OI 

0.1001E-02  -0.1079E-12 

O.IOOOE+OI 

0.6000E+00 

O.OOOOE+OO 

a 

0.1017E+D2 

0.5369E+03 

0.7660E+00 

0. 14996+02 

O.IOOOE+OI 

0.8796E-03  -0.1077E-12 

O.IOOOE+OI 

0.7000E+00 

O.OOOOE+OO 

9 

0. 1016E+02 

0.5368E+03 

0.7662E+00 

0.1499E+OZ 

O.IOOOE+OI 

0.657BE-03  -0.1078E-12 

O.IOOOE+OI 

0.8000E+00 

O.ODDOE+OO 

10 

0. 1016E+02 

0.5368E+03 

0.7663E+00 

0.1499E+02 

0.10006+01 

0.2440E-03  -0.1065E-12 

O.IOOOE+OI 

0.9000E+00 

O.OOOOE+OO 

11 

0.10I6E+02 

0.5368E+03 

Q.7663E+00 

0. 1499E+02 

O.IOOOE+OI 

0.1976E-17  -0.1073E-12 

O.IOOOE+OI 

O.IOOOE+OI 

O.OOOOE+OO 

BLOCK  1  VARIABLES  AT  L, 

J  »  11, 

9 

ITERATION  NUMBER:  2500 

K 

PRESSURE 

TEMPERATURE  MACH  NUMBER 

TOTAL  PRESS 

U-C0S1NE 

V-COSINE  V-COSINE 

X 

Y 

2 

1 

0.1061 E+02 

0l5435E*03 

0.7221E+00 

0.1S02E+02 

O.IOOOE+OI 

0.6267E-16  -0.2607E-12 

0.2000E+01 

O.OOOOE+OO 

O.OOOOE+OO 

2 

0.1061E+02 

0.5435E+03 

0. 722 2E  *-00 

0.1502E+02 

0.10006+01 

0.7295E-02  -0.259BE-12 

0.2000E+01 

O.IOOOE+OO 

O.OOOOE+OO 

3 

0. 1059E+02 

0.5431E+03 

0.7246E400 

0.1502E+02 

0.99996+00 

0.1720E-01  -0.2674E-12 

0.2000E+01 

0.2000E+00 

O.OOOOE+OO 

4 

0.1054E+02 

0.5424E+03 

0.7297E+00 

0.1S02E+02 

0.9997E+00 

0.2455E-01  -0.2620E-12 

0.2000E+01 

0.3000E+00 

O.OOOOE+OO 

5 

0.105DE+02 

0.5417E+03 

0.7356E+00 

0.1504E+02 

0.9994E+00 

0.3S15E-01  -0.2540E-12 

0.2000E+01 

0.4000E+00 

O.OOOOE+OO 

6 

0.1038E+02 

0.5399E+03 

0.T468E400 

0.1503E+02 

0.9992E+00 

0.4115E-01  -0.2556E-12 

0.20CQE+01 

0.5000E+00 

O.OOOOE+OO 

7 

C.1C32E+02 

0 . 53B9E+03 

0.7568E+00 

0.150SE+02 

0.99B5E+00 

0.5516E-01  -0.2496E-12 

0.2000E+01 

0.6000E+00 

O.OOOOE+OO 

8 

0.1C08E+02 

Q.5352E+03 

0.7779E400 

0.1S04E+02 

0.9984E+00 

0.5736E-01  -0.1875E-12 

0.2000E+01 

0.7000E+00 

O.OOOOE+OO 

9 

0.1003E+02 

0.5342E+03 

0.794BE*00 

0.1521E+02 

0.9967E+00 

0.8124E-01  -0.1167E-12 

0.2000E+01 

o.aaooE+oo 

O.OOOOE+OO 

10 

0.9538E+01 

0.5265E+03 

0.8321 £400 

0.1 5  02  E +02 

0.9973E+00 

0.7280E-01  -0.2698E-12 

0.2000E+01 

0.9000E+00 

O.OOOOE+OO 

11 

0.9543E+01 

0.5267E+03 

0.8308E+00 

0.1 500E+02 

0.99236+00 

0.1240E+00  -0.2711E-12 

0.200CE+01 

O.IOOOE+OI 

O.OOOOE+OO 

BLOCK  1  VARIABLES  AT  L, 

J  =  11, 

13 

ITERATION  NUMBER:  2500 

K 

PRESSURE 

TEMPERATURE 

MACN  NUMBER 

TOTAL  PRESS 

U-COSINE 

V- COS  I ME  U-COSINE 

X 

Y 

z 

1 

0.1235E+02 

0.5678E+03 

0.5337E+00 

0.1499E+02 

O.IOOOE+OI 

0.2458E-15  -0.4842E-12 

0.3000E+01 

O.OOOOE+GO 

O.OOOOE+OO 

2 

0.1235E+02 

D.5677E+03 

D.5336E400 

0.1499E+02 

0.9997E+00 

0.2347E-01  -0.4824E-12 

Q.3000E+01 

0.1250E+00 

O.OOOOE+OO 

3 

0. 1235E+02 

O.5678E+03 

0.5333E+00 

0.1499E+02 

0. 9989  E +00 

0.4773E-01  -0.4063E-12 

0.3000E+01 

0.2500E+00 

O.OOOOE+DD 

4 

O.1236E+02 

0.5678E+0J 

0.5323E+00 

0.1499E+02 

0.9974E+00 

0.71 38E-01  -0.4424E- 12 

0.3000E+01 

0.3750E+00 

O.OOOOE+OO 

S 

O.1236E+02 

0.5679E+03 

0.5315E+00 

0.1499E+02 

0.9954E+00 

0.9592E-01  -0.4569E-12 

0.3000E+01 

0.5000E+00 

O.OOOOE+OO 

6 

0.12JBE+02 

0.5682E+03 

0.5295E400 

0.14986+02 

0.9927E+00 

0.1206E+00  -0.4055E-12 

0.3000E+01 

0.6250E+00 

a.OOOOE+OD 

7 

0.12J9E+02 

0.5633E+03 

0.5288E+00 

0.1499E+02 

0.9895E+00 

0.1446E+00  -0.3951E- 12 

0.3000E+01 

0.75006+00 

O.OOOOE+OO 

8 

O.1242E+02 

0.5688E+03 

0.5253E+Q0 

0.1 4996+02 

0.9853E+00 

0.1707E+00  -0.6620E-12 

0.3000E+01 

0.8750E+00 

O.OOOOE+OO 

9 

0.1242E+02 

0.5692E+03 

0.5193E+00 

0.1493E+02 

0.9BIQE+00 

0.1942E+00  -0.9679E-12 

0.3000E+01 

O.IOOOE+OI 

O.OOOOE+OO 

TO 

0. 124BE+02 

0.5702E+03 

0.5068E+00 

0.14876+02 

0.9742E+00 

0.2255E+00  -O.4390E-12 

0.3000E+01 

0.1125E+01 

O.OOOOE+OO 

11 

0.1248E+02 

0.5702E+03 

0.506SE400 

0.14876+02 

0.9701E+00 

0.2425E+00  -0.4410E-12 

0.3000E+01 

0.1250E+01 

O.OOOOE+OO 
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Listing  £-6.  Continued 


BLOCK  1  VARIABLES  AT  l, 

.  J  =  11. 

17 

ITERATION  NUMBER:  2500 

K 

PRESSURE 

TEMPERATURE  MACH  HUMBER 

TOTAL  PRESS 

U* COSINE 

V-COSINE  U-COSINE 

X 

1 

1 

0. 1328E+02 

0.57971+03 

0.4194E+00 

0.1499E+02 

0.1000E+01 

-0.4898E-15  -0.5519E-12 

0.4000E+01 

O.OOOOE+OO 

2 

0. 1328E+02 

0.5798c +03 

0.4195E+00 

0.1499E+02 

0.9997E+00 

0.2514E-01  -0.5484E-12 

0.4000E+01 

0.1500E+00 

3 

0. 1329E+02 

0.5797E+03 

0.4189E+00 

0.1499E+02 

0.9988E+00 

0.4914E-01  -0.4455E-12 

0.4000E+01 

0.3000E+00 

4 

0.1329E+02 

0.5798E+03 

0.417BE+00 

0.1499E+02 

0.99 73E +00 

0.7406E-01  -0.4533E-12 

0.4000E+01 

0.450QE+00 

S 

O.133DE+02 

0.5799E+03 

0.4164E+00 

0.1499E+02 

0.9952E+00 

0.9788E-01  -0.41506-12 

0.4000E+01 

0.6000E+00 

6 

0.1332E+02 

0.5801E+03 

0.4150E+00 

0.1499E+02 

0.9924E+00 

0.1228E+00  -0.3794E-T2 

0.4000E+01 

0.7500E+00 

7 

0.1333E+02 

0.5803E+03 

0.4129E+00 

0. 1498E+02 

0.9893E+00 

0. 1460E+00  -0.5875E-12 

0.4000E+01 

0.9000E+00 

8 

0.1335E+02 

0.5807E+03 

0.4081E+00 

0. 14976+02 

0.9851E+00 

0.1721E+00  -0.1077E-11 

0.4000E+01 

0.1050E+01 

9 

0.13366+02 

0.581 1E+03 

0.4010E+00 

0. I492E+02 

0.9807E+00 

0.1955E+00  -0.13366-11 

0.4000E+01 

0.1200E+01 

10 

0.1339E+02 

0.5817E+03 

0.3956E+00 

0.1492E+02 

0.9750E+00 

0.2223E+00  -0.5653E- 12 

0.4000E+01 

0.1350E+01 

11 

0.13396+02 

0.5817E+03 

0.3955E+00 

0.1492E+02 

0.9701E+00 

0.2425E+00  -0.5666E-12 

0.4DQ0E+01 

0.1500E+01 

BLOCK  1  VARIABLES  AT  L, 

J  -  11, 

21 

ITERATION  HUMBER:  2500 

K 

PRESSURE 

TEMPERATURE  MACH  NUMBER 

TOTAL  PRESS 

U-COSIME 

V- C0S1 HE  U-COSINE 

X 

Y 

1 

0.13766+02 

0.58566+03 

0.3509E+00 

0.1499E+02 

0. 1000E+01 

O.OOOOE+OO  -0.5244E-12 

0.5000E+01 

O.OOOOE+OO 

2 

0. 1376E+02 

0.58566+03 

0.3510E+00 

0.1499E+02 

0.9997E+00 

0.2307E-01  -0.5217E-12 

0.5000E+01 

0. 175OE+00 

3 

0.1J77E+02 

0.58566+03 

0.3505E+00 

0.1499E+02 

0.9990E+00 

0.4510E-01  -0.3519E-12 

0.5000E+01 

0.3500E+00 

4 

0. 137BE+02 

0.5B57E+03 

0.3493E+00 

0.1499E+02 

0.9977E+00 

0.6807E-01  -0.2805E-12 

0.5000E+01 

0.5250E+00 

5 

0.1379E+02 

0.5858E +03 

0.3477E+00 

0.1499E+02 

0.99S9E+00 

0.90t7E-01  -0.2248E-12 

0.5000E+01 

0.7000E+00 

6 

0.1361 E+02 

0.5861E+03 

0.3455E+00 

0.1 4996+02 

0.9935E+00 

0.1138E+00  -0.3366E-12 

0.5000E+01 

0.8750E+00 

7 

0. 1382E+02 

O.5863E+03 

0.3417E+00 

0.1498E+02 

0.9906E+00 

0.1370E+00  -0.7983E-12 

0.5000E+01 

0.1050E+01 

8 

0.1384E+02 

0.5868E+03 

0.33566+00 

0. 1497E+02 

0.9866E+00 

0. 1634E+00  -0.1421E-11 

0.5000E+01 

0.1225E+01 

9 

0.1385E+02 

0. 5871 E +03 

0.3292E+00 

0. 1493E+02 

0.9821 E+00 

0. 1883E+0Q  -0.1589E-11 

0 . 5000E+01 

0. 1400E+01 

10 

0.1389E+Q2 

0.5877E+03 

0.3249E+00 

0.1494E+02 

0.9761 E+00 

0.2172E+00  -0.6202E-12 

0.5000E+01 

0.1575E+01 

11 

0.1389E+02 

0.5877E+03 

0.324BE+00 

0.1494E+02 

0.9701 E+00 

D.2425E+00  -0.6250E-12 

O.SOOOE+OI 

0.1750E+01 

BLOCK  1  VARIABLES  AT  L, 

J  =  11, 

25 

ITERATION  NUMBER:  2500 

K 

PRESSURE 

TEMPERATURE 

MACH  NUNBER 

TOTAL  PRESS 

U- CDS I  HE 

V-COSINE  W-COSINE 

X 

Y 

1 

0.1401E+02 

O.5S86E+03 

0.31 13E+00 

0.1499E+02 

0. 1000E+01 

O.OOOOE+OO  -0.3430E-12 

0.6000E+01 

O.OOOOE+OO 

2 

0. 1401E+02 

0.5B86E+03 

0.31 14E+0Q 

0. 1499E+0Z 

0.9999E+00 

0.1559E-01  -0.34386-12 

0.6000E+DI 

0.2000E+00 

3 

0.1402E+02 

0.5886E+03 

0.3106E+00 

0. 1499E+02 

0.9996E+00 

0.29S8E-01  -0.1441E-12 

0.6000E+D1 

D.4000E+00 

4 

0.1403E+02 

0.5888E+03 

0.3088E+00 

0. 1499E+02 

0.9990E+00 

O.4462E-01  0.1036E-13 

0.6000E+01 

0.6000E+00 

5 

0.1405E+02 

0.5890E+03 

0.3058E+00 

0.1499E+02 

0.9963E+00 

0.5805E-01  -0.121  IE- 13 

0.6000E+01 

0.8000E+00 

6 

0. 1408E+02 

0. 5894E+03 

0.3009E+00 

0.1499E+02 

0.9973E+00 

0.7364E-01  -0.3558E-12 

0.6000E+01 

0. 1000E+01 

7 

0.1410E+02 

0.5897E+03 

0.2933E+00 

0.1497E+02 

0.9963E+00 

0.8615E-01  -0.1030E-1 1 

0.6000E+01 

0.1200E+01 

8 

0.14166+02 

0.5906E+03 

0.2821E+00 

0.1496E+02 

0.9945E+00 

0. 1051E+00  -0.1673E-11 

0.6000E+01 

0.1400E+01 

9 

0. 1417E+02 

0.5910E+03 

0.2691 E+00 

0.1 49 1 E  +02 

0.9934 E+00 

0.1147E+00  -0.1656E-11 

O.6ODOE+01 

0.1600E+01 

10 

0.1430E+02 

0.5926E+03 

0.2553E+00 

0.1497E+02 

0.9895E+00 

0.1447E+00  -0.B511E-12 

0.6000E+01 

Q.180DE+01 

11 

0. 1430E+02 

0.5926E+03 

0.2553E+00 

0. 1497E+02 

0.9923E+00 

0.1240E+00  -0.8580E-12 

0.6000E+01 

0.2000E+01 

BLOCK  1  VARIABLES  AT  L, 

J  =  11. 

29 

ITERATION  NUMBER:  2500 

K 

PRESSURE 

TEMPERATURE  1 

NACH  NUMBER 

TOTAL  PRESS 

U-COSIME 

V-COSINE  U-COSINE 

X 

Y 

1 

0.141DE+02 

0.5896E+03 

0.2962E+00 

0.1499E+02 

0.10006+01 

O.OOOOE+OO  -0.9084E-13 

0.7000E+01 

O.OOOOE+OO 

2 

0.1410E+02 

0.58966+03 

0.2962E+00 

0.1499E+02 

0.1000E+01 

O.S157E-02  -0.9136E-13 

0.7000E+01 

0.2000E+00 

3 

0.1411E+02 

0.5897E+03 

0.2962 E+00 

0.1499E+02 

0.1000E+01 

0.9243E-02  O.I809E-13 

0.7000E+01 

0.4000E+00 

4 

0.1411E+02 

0.5B97E+03 

0.2957E+00 

0. 1499E+02 

0.9999E+00 

0.1354E-01  0.1439E-12 

O.TOOOE+OI 

0.6000E+00 

5 

0.14I2E+02 

0.5898E+03 

0.2945E+00 

0.1499E+02 

0.9999E+00 

0. 1607E-01  0. 1095E-12 

0, 7000E+0! 

0.8000E+00 

6 

0.1413E+02 

0.5900E+03 

0.2920E+00 

0.1499E+02 

0.9998E+00 

0.1871E-01  -0.2183E-12 

0. 7000E+01 

O.IOOOE+OI 

7 

0.1413E+02 

D.59O2E+03 

0.2874E+00 

0.1497E+02 

0.9998E+00 

0.1923E-01  -0.7282E-12 

0.7000E+01 

0. 12DCE+01 

B 

0. 1415E+02 

0.5905E+03 

0.2824E+00 

0.1495E+02 

0.9998E+00 

0.1898E-01  -0.1125E-11 

0. 7000E+01 

0. 14D0E+01 

9 

0.1415E+02 

0.5907E+03 

0.27896+00 

0.1 494 E+02 

0.9999E+00 

0.1299E-O1  -0.1210E-11 

0. 7000E+D1 

0.1600E+01 

10 

0. 1416E+02 

0.5909E+03 

0.2799E+00 

0.1496E+02 

0.1000E+01 

0.4977E-02  -0.1126E-11 

0.7000E+01 

o.iaooE+oi 

11 

0.1416E+02 

0.5909E+03 

0.2799E+00 

0.1496E+02 

0.1000E+01 

0.6513E- 16  -0.1134E- 1 1 

0.7000E+01 

0.2000E+01 

z 

O.QOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

D.OODDE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 


z 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.COOOE+OO 

O.OOOOE+OO 


2 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+CD 

O.OOOOE+CO 

O.OOOOE+OO 


z 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 
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Listing  E-6.  Continued 


SLOCK  1  VARIABLES  AT  L.  J  -  11.  13  ITERATION  NUMBER:  2500 


K  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE 

1  0.1413E+02  0.5902E+03  0.2924E+00  0.1499E+02  0.1000E+01 

2  0. 1413E+CZ  0.5902E+03  0.2924E+00  0.1499E+02  0.1000E+01 

3  0. 1413E+02  0.5901E+03  0.2928E+00  0.150DE+02  0.1000E+01 

.  4  0. 1413E+02  0.5901E+03  0.2930E+00  0.1500E+02  0.1000E+0! 

5  0. 1413E+02  0.5900E+03  0.2926E+00  0.1499E+02  0.1000E+01 

6  0. 1413E+02  0.5900E+03  0.291QE+00  O.1499E+0Z  O.1OCQE+0I 

7  0.1413E+02  0.5900E+03  0.2881E+00  0.1497E+02  0.1000E+01 

8  0.1413E+02  0.5901E+03  0.2854E+00  . 0.1495E+02  0.1000E+01 

9  0.1413E+0Z  0.5902E+03  Q.Z839E+Q0  0.1494E+02  0.1000E+01 

10  0.1413E+02  0.5903E+03  0.2840E+00  Q.1494E+02  0.1000E+01 

11  D.141SE+Q2  0 . 5903E+03  0.2B40E+03  0.1494E+02  0.1000E+01 


V-COSINE  U-COSINE  X  Y  2 

O.OCOOE+OO  0.2763E-13  0.8000E+01  O.OOOOE+OO  0.0000£+00 
0. 1663E-02  0.2763E-13  0.8000E+01  0.2000E+00  O.OOOOE+OO 
0.2958E-02  0.1099E-12  0.8000E+01  0.4000E+00  O.OOOOE+OO 
0.4263E-02  0.1637E-12  0.8000E+01  0.6000E+00  O.OOQOE+OO 
0.5022E-02  0.1126E-12  0.8000E+01  O.BDOOE+OO  O.OOOOE+OO 
0. 5691 E -02  -0.1946E-12  0.8000E+01  0.1000E+01  0. OOOOE+OC 
0.5692E-02  -0.6308E-12  C.8000E+01  0.1200E+01  a.OOOOE+OO 
0.4B46E-02  -0.9990E-12  0.800CE+01  0.1400E+01  O.OOOOE+OO 
0.3008E-02  -0. 1 164E-11  0.8000E+01  0.16C0E+01  O.COOOE+OC 
0.9903E-03  -0. 1 185E-11  O.BMOE+OI  0.1800E+01  O.OOOOE+OO 
0.8039E-17  -0.1185E-11  0.8000E+01  0.2000E+01  O.OOOOE+OO 


BLOCK  1  VARIABLES  AT  L,  K  =  11,  2  ITERATION  I 

J  PRESSURE  TENPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE 

2  0. 1018E+02  0.S371E+03  0.76571*00  0.1500E*02  0.100DE+01 

4  0.I01BE+02  0.53716*03  0.7654E+00  0.1500E+02  0.1000E+01 

6  0.1021E+02  0. 3175E+03  0.7627E*00  0.1501E+02  0.1000E+01 

8  0.1038E+02  0.5400E+03  0.74S4E+00  0.1500E+02  0.1000E+01 

10  0.1099E*02  0.5490E+03  0.6B09E+00  0.1498E+02  0.9999E+00 

12  0. 1199E+02  0.5529E+03  0.57476*00  0.1499E*02  0.9998E+00 

14  0.1265E+02  D.5716E+03  0.499CE+00  0.1499E*02  0.9997E+00 

16  0.1310E*02  0.5774E+03  0.4425E+00  0.1499E*02  0.9997E+00 

16  0.1343E*02  0.5815E*03  0.3992E*00  0.1499E*02  0.999 7E+00 

20  0.1367E+02  0.5844E*03  0.3652£*00  0.1499E+02  0.9997E*00 

22  0. 1384E+02  0.5865E*03  0.3386E+00  0.1499E+02  0.9998E+00 

BLOCK  1  VARIABLES  AT  L,  K  =  It,  4  ITERATION  1 

J  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE 


IUHBER :  2500 

V-COSINE  U-COSINE  X  7  Z 

-0.3825E-05  -0.2569E-13  0.2500E+00  O.IOOOE+OO  O.OOOOE+OO 
0.2894E-04  -0.7965E-13  0.7500E+00  O.IOOOE+OO  O.OOOOE+OO 
0.4512E-03  -0.1368E-12  0.1250E+01  O.IOOOE+OO  O.OOOOE+OO 
0.3524E-02  -0.2202E-12  0.1750E+01  O.IOOOE+OO  O.OOOOE+OO 
0.1377E-01  -0.3191E-12  0.2250E+0I  0.1062E+00  O.OOOOE+OO 
0.216SE-01  -0.4515E-12  0.2750E+0I  0.1187E+00  O.OOOOE+OO 

O. 2454E-01  -0.5090E-12  0.3250E+01  0.1312E+00  O.COOOE+OO 

P. 2521E-01  -0.5420E- 12  0.3750E+01  0.1437E+00  O.OOOOE+OO 
0.2493E-01  -0.5514E- 12  0.4250E+01  0.1562E+00  O.OOOOE+OO 
0.2396E-01  -0.5357E-12  0.4750E+OI  0.16a7E+00  O.OOOOE+OO 
0.2192E-01  -0.5017E-12  0.5250E+01  0.1812E+00  O.OOOOE+OO 

LIMBER:  2500 

V-COSINE  U-COSINE  X  Y  2 


2  0.1018E+02  0.5371 E+C3  0.7657E+00  0.1500E+02  0.1000E+01 
4  0. 1018E+02  0.5371E+03  0.7655E+00  0.1500E+02  0.1000E+01 
6  0.1020E+02  0.5374E+03  0.7637E+00  0.1501E+02  0.1000E+01 
8  0. 1033E+02  0.5394E+Q3  0.749BE+00  0.1500E+02  0.9999E+00 
10  0.1091E+02  0.5479E+03  0.6868E+00  0.1496E+02  0.9989E+00 
12  0.1199E+02  0.5630E+03  0.5737E+00  0.1499E+02  0.9977E+00 
14  0.1266E+02  0.5717E+03  D.4972E+00  O.H99E+02  0.9973E+00 
16  0.1312E+02  0.5776E+03  0.4407E+00  0.1499E+02  0.9972E+00 
18  0.1344E+02  0.5816E+03  0.3975E+00  0.1499E+02  0.9973E+00 
20  0.1368E+02  0.5846E+03  0.3635E+00  0.1499E+02  0.9975E+00 
22  0. 1386C+D2  0.5867E+03  0.3367E+00  0.1499E+02  0.9979E+00 


-0.9022E-05  -0.2630E-13  0.2500E+00  0.3000E+00  O.OOOOE+OO 
0.6320E-04  -0.6003E-13  0.7500E+00  0.3000E+00  O.OOOOE+OO 
0.1306E-02  -D.1366E-12  0.1250E+01  0.3000E+00  O.OOOOE+OO 
0.1081E-01  -0.2189E-12  0.1750E+01  0.3000E+00  O.OOOOE+OO 
0.471 5E-01  -0 .31586-12  0.2250E+01  0.3187E+00  O.OOOOE+OO 
0.6789E-01  -0.4130E-12  0.2750E+01  0.3562E+00  O.OOOOE+OO 
0.7132E-D1  -0.4615E- 12  0.3250E+01  0.3937E+00  O.OOOOE+OO 
0.7433E-01  -0.4682E-12  0.3750E+01  0.4312E+00  O.OOOOE+OO 
0.7347E-01  -0.4274E-12  0.4250E+01  0.4687E+00  O.OOOOE+OO 
0.7075E-01  -0.3366E-12  0.4750E+01  0.5062E+00  O.OOOOE+OO 
0.6469E-01  -0.2154E-12  0.5250E+01  0.5437E+00  O.OOOOE+OO 


BLOCK  1  VARIABLES  AT  L,  K  ■  11,  6  ITERATION  NUMBER:  2500 

i  PRESSURE  TEMPERATURE  NACH  NUMBER  TOTAL  PRESS  U-COSINE  V-COSINE  U-COSINE  X  Y  2 


2  0. 1018E+02  0.5371E+O3  0.7658E+00  0.I5D0E+02  0.1000E+01 

4  0.1018E+02  0. 5 371 E +03  0.7658E+00  O.I501E+02  0.1000E+01 

6  0. 1018E+02  0.5372E+03  0.7656E+00  0.1501E+02  0.1000E+01 

5  0.1025E+02  0.5381E+03  0.7593E+00  0.1S02E+02  0.9999E+00 

10  0.1076E+Q2  0.5458E+03  0.6993E+00  0.1492E+02  0.9965E+00 

12  D.1200E+02  0.5632E+03  0.5715E+00  0.I49BE+02  0.9932E+00 

14  0.1268E+02  0.5721E+03  0.4942E+00  D.1499E+02  0.9924E+00 

16  0.1314E+02  0.5779E+03  0.4378E+00  0.1499E+02  0.9924E+00 

18  D.1347E+02  0.5819E+03  0.3947E+00  0.1499E+02  0.9926E+00 

20  0.1371E+02  0.5849E+03  0.3602E+00  0.1499E+02  0.9930E+00 

22  0.1389E+02  0.5871E+03  0.3320E+00  0.1499E+02  0.9941E+00 


-0.1333E-Q4  -0.2500E-13  0.2500E+00  0.5000E+00  O.OOOOE+OO 
0.8197E-04  -0.7B85E-13  0.7500E+00  0.5000E+00  O.OOOOE+OO 
0.1558E-02  -0.1385E-12  0.1250E+01  0.5000E+00  O.OOOOE+OO 
0.1532E-01  -0.2161E-12  0.1750E+01  0.5000E+00  O.DOOOE+OO 
0.B331E-01  -0.3192E-12  0.2250E+01  0.5312E+00  O.OCOOE+OO 
0.1160E+00  -0.3996E-1Z  0.2750E+01  0.5937E+00  O.OOOOE+OO 
0.1228E+0C  -0.4026E-12  0.3250E+01  0.6562E+00  O.OOOOE+OO 
0.1234E+00  -0.3883E-12  0.3750E+01  0.7187E+00  O.OOOOE+OO 
0.1218E+00  -0.3640E-12  0.4250E+01  0.7812E+00  O.OOOOE+OO 
0.1178E+00  -0.3405E-12  0.4750E+01  0.8437E+00  O.OOOOE+OO 
0. 1 089E+00  -0.3258E-12  0.5250E+01  0.9062E+00  O.OOOOE+OO 
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Listing  E-6.  Continued 


BLOCK  1  VARIABLES  AT  L,  K  *  11, 


J 

PRESSURE 

TEMPERATURE 

2 

0.I01BE+O2 

0.5370E+03 

4 

0.101BE+02 

0.5370E+03 

6 

0.1017E+02 

0.S369E+03 

8 

0.1011E+02 

0.5360E+03 

10 

0.1052E+02 

0.5424E+O3 

12 

0.12056+02 

0.5640E+03 

14 

0. 12726+02 

D.5728E+03 

16 

0.1318E+02 

0.5766E+O3 

18 

0.1350E+02 

0.5826E+03 

20 

0.1374E+O2 

O.5855E+03 

22 

0.13936+02 

0. 58796+03 

BLOCK  1  VARIABLES  AT  L, 

J 

PRESSURE 

TEMPERATURE 

2 

0.10186+02 

0.5370E+03 

4 

0.1018E+Q2 

0.5370E+03 

6 

0. 10156+02 

0.5366E+03 

8 

0.9885E+01 

0.53266+03 

10 

0. 1016E+02 

0.5380E+03 

12 

0.1213E+O2 

0.56576+03 

14 

0. 1278E+C2 

0.5741E+03 

16 

0.1323E+02 

0.5797E+03 

18 

0.1354E+02 

0.58356+03 

20 

0.13786+02 

0.5864E+03 

22 

0.1398E+02 

0.58886+03 

BLOCK  1  VARIABLES  AT  K, 

L 

PRESSURE 

TEMPERATURE  1 

1 

0. I091E+Q2 

O.5479E+03 

2 

O.1O91E+02 

0.5479E+03 

3 

0. 1091E+02 

0.54796+03 

4 

0. 1091E+02 

0.5479E+03 

5 

0.1091E+02 

0.54796+03 

6 

0.1091E+02 

0.5479E+03 

7 

0.1091E+02 

0.5479E+03 

8 

0.1091E+02 

0.54796+03 

9 

0.1091 E+02 

0.5479E+03 

10 

0.1091E+02 

0.54796+03 

11 

0.1091 E+02 

O.5479E+03 

12 

0.1091 E+02 

0. 54796+03 

13 

0.1091 E+02 

0.54796+03 

14 

0.10916+02 

0.5479E+03 

15 

0.1091E+02 

0.54796+03 

16 

0.1 091 E+02 

0.54796+03 

17 

0.1091E+02 

0.5479E+O3 

18 

0. 10916+02 

0.5479E+03 

19 

0.10916+02 

0.5479E+03 

20 

0.10916+02 

0.54796+03 

21 

0.1091E+02 

0. 5479E+03 

0.7658E+00  0.1503E+02 
0.76616+00  0.15016+02 
0.7681E+00  0. 15026+02 
0.7751E+00  0. 1SD4E+02 
0.7186E+00  0. 1484E+02 
0.5677E+O0  0.14996+02 
0.48916+00  0 . 1 4986+02 
0.4314E+00  0.149BE+02 
0.3872E+00  0. 1497E+02 
0.3513E+00  0. 14966+02 
0.3205E+00  0.1496E+02 

K  =  11,  10 


0.7659E+00 

0.7663E+00 

0.77D1E+00 

0.8Q34E+00 

0.7351E+00 

0.54696+00 

0.47206+00 

0.4177E+00 

0.37576*00 

0.3406E+00 

0.30866+00 


0.1500E+02 
0.1 501 E+02 
0.1503E+02 
0.1512E+02 
0.1455E+02 
0.1487E+02 
0. 14896+02 
0.1491E+02 
0.1492E*02 
0.1493E*02 
0.1493E*02 


4,  10 


0.6868E+00 

0.68686+00 

0.6868E+Q0 

0.68686+00 

C. 6868E+00 
0.68686+00 
0.6868E+00 
0.5S6BE+00 
0.68686+00 
0.6868E+00 
0.6868E+00 

D. 6868E+0O 
0.68686*00 
D.6868E+00 
0.6868E+00 
0.6868E+00 
0.686BE+00 
0.6B68E+00 
0.6868E*00 
0.6868E«00 
0.6868E*00 


0. 1496E+02 
0. 1496E+02 
0.1496E+02 
0. 1496E+02 
0.1496E+02 
0.1496E+02 
0.14966+02 
0.1496E+D2 
0.1496E+02 
0.1496E+02 
0.14966*02 
0.1496E+02 
0.1496E+02 
0.1496E+02 
0.H96E+O2 
0.1496E*02 
0. 1496E+02 
0. 14966*02 
0. 14966*02 
0 . 14966*02 
0.14966+02 


ITERATION  NUMBER:  2500 


U-COSINE 

0.1000E+01 
0.1000E+01 
0.10006+01 
0.9999E+00 
0.9921 E+DO 
0.9861E+00 
0.9850E+00 
0.985OE+00 
0.9852E+00 
0.9859E+00 
0.9874E+00 


V-COSIME 

-0.1300E-04 
0.3645E-04 
0.1018E-D2 
0.1426E-01 
0.12S1E+00 
0.1663E+O0 
0.172SE+00 
0.1727E+00 
0.1712E+00 
0. 1675E+00 
0.1585E+00 


V' COSINE 

-0.264JE- 13 
-0.7786E-13 
-0.1386E-12 
-0.2302E-12 
-0.23996-12 
-0.5484E-12 
-0.7722E-12 
-0.9823E-12 
-0.1172E-11 
-0.1337E-11 
-0.1492E-11 


NUMBER:  2500 

V-COSINE  U-COSINE 


I1ERATION 
U- COSINE 

0.1000E+01 
0.1000E+01 
0.1000E+01 
0. 10006+01 
0.9842E+00 
0.9747E+00 
0.9743E+OO 
0.974BE+00 
0.9752E+00 
0.9756E+00 
0.9767E+00 


-0.7830E-05 

0.74296-0$ 

0.1337E-03 

0.1694E-02 

0.17706*00 

0.2234E+00 

0.2253E+00 

0.2232E+0O 

0.2215E+00 

0.2195E+00 

0.2144E+00 


-0.24O6E-13 
-0.7726E-13 
-0.1372E-12 
-0. 20876-12 
-0.3180E-12 
-0.3S48E-12 
-0.47666-12 
-0.5402E- 12 
-0.SB79E-12 
-0.611  IE-12 
■0.6250E-12 


ITERATION  I 
U-COS1HE 

0.9989E+00 
0.9989E+00 
0.99S9E+00 
0.9989E+00 
0.9989E+00 
0.9989E+00 
0.9989E+00 
0.9989E+00 
0.9989E+00 
0.9989E+C0 
0.9989E+00 
Q.99B9E+00 
0.99B96+00 
0 . 9989E+00 
0.99896*00 
0.99896*00 
0.9989E+00 
0.9989E+00 
0.99B9E+00 
0.9969E+00 
0.9989E+00 


V-COSINE 

0.4715E-O1 
0.4715E-01 
0.4715E-01 
0.4715E-01 
0.4715E-01 
0.4715E-01 
0.4715E-01 
0.4715E-01 
0.4715E-01 
0.471SE-01 
0.4715E-01 
0.4715E-01 
0.471SE-01 
0.471 5E-0! 
0.471SE-0I 
0.4715E-01 
0.4715E-01 
0.4715E-01 
0.471 5E-D1 
0.4715E-01 
O.471SE-01 


2500 

U-COSINE 

O.OOOOE+OO 
0.24296-08 
0.1172E-08 
0. 1594E-08 
0.96666-09 
0.8261E-09 
0.6269E-09 
0.47B5E-09 
0.3157E-09 
0.15616-09 
•0.31586-12 
-0.15686-09 
-0.3163E-09 
-0.4792E-09 
-0.62766-09 
-0.8266E-09 
-0.9673E-09 
-0.1594E-08 
-0.1173E-08 
-0.24296-08 
0.00006+00 


X 

0.2500E+40 
0.75006+00 
0. 1250E+01 
0.1750E+01 
0.2250E+01 
0.2750E+01 
0.32506*01 
0.3750E+01 
0.4250E+01 
0.4750E+01 
0.S250E+D1 


X 

0.2500E+00 
0.7500E+00 
0.1250E+01 
0. 175GE+D1 
0.2250E+01 
0.2750E+01 
O.3250E+0I 
0.3750E+01 
0.4250E+01 
0.4750E+01 
0.5250E+01 


X 

0.225QE+01 
0.2250E+01 
0.2250E+OI 
0. 22506+01 
0.2250E+01 
0.225DE+01 
0.22506+01 
0.2250E+01 
0.2250E+01 
0.2250E+01 
D.2250E+01 
0.2250E+01 
0.2250E+01 
0.2250E+01 
0.2250E+01 
0.2250E+01 
0.22506+01 
0.2250E+01 
0.2250E+01 
0.22506+01 
0.2250E+Q1 


r 

0.7000E+0Q 
0.70006+00 
0.7000E+00 
0. 70006+00 
0.74  3  76  +  00 
0.8312E+00 
0.91S7E+D0 
0.10066+01 
0.1094E+01 
o. 1 iaiE+oi 
0.12696+01 


r 

0.900QE+00 
0.9000E+00 
0.90006+00 
0.9000E+00 
0. 95626+00 
0. 1069E+01 
0.11816+01 
0.1294E+01 
0.1406E+01 
0.1519E+01 
0.1631E+01 


Y 

D.3187E+00 
0.3187E+00 
0.3187E+00 
0.31B7E+00 
0.3187E+00 
0.3187E+00 
0.3I87E+00 
0.3187E+00 
0.3187E+00 
0.3187E+00 
0.3187E+00 
0.31 87E+00 
0.3187E+00 
0.31B7E+00 
0.3187E+00 
0.31876+00 
0.3187E+00 
0.3187E+00 
0. 31876+00 
0.3187E+00 
D.3187E+00 


Z 

0.00006+00 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

0.00006+00 

O.OOOOE+OO 

O.OOOOE+OO 

0.00006+00 

O.OOOOE+OO 


z 

0.00006+00 
O.OOOOE+OO 
0. 00006+00 
0.00006+00 
O.OOOOE+OO 
O.OOOOE+OO 
O.OOOOE+OO 
O.OOOOE+OO 
O.OOOOE+OO 
O.OOODE+OO 
O.OOOOE+OO 


2 

-0.2500E+01 
-0.2250E+01 
-0.20006+01 
-0.17506+01 
-0.1500E+01 
-0. 12506+01 
•0.10006+01 
■0.7500E+00 
■0.50006+00 
■0.2500E+00 
O.OOOOE+OO 
0.2500E+00 
0.5000E+00 
0.7500E+00 
0.1000E+01 
0. 1250E+01 
0.1500E+01 
0.1750E+01 
0.20006+01 
0.2250E+01 
0.25006+01 
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Listing  E~6.  Continued 


9LDCK  1  VARIABLES  AT  It,  J  =  4,  20  ITERATION  NUMBER:  2500 

L  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE  V-COSINE  U-COSINE  X  Y  Z 

1  0.1368E+C2  Q.5846E+03  0.3635E+00  0.1499E+02  0.9975E+00  0.7075E-01  O.OOOOE+OO  O.475OE+01  0.5062E+00  -0  25O0E+01 

2  0.1368E+02  0.5846E+D3  0.3635E+00  D.1499E+0Z  0.9975E+00  0.7075E-01  0.3004E-09  0.475DE+G1  0.5C62E+00  -0.2250E+01 

3  0.136SE+02  0.5346E+03  0.3635E+00  0.1499E+02  0.9975E+00  0.707SE-01  0.2523E-09  0.4750E+01  0.5062E+00  -0  2000E+01 

4  0.1368E+02  0.5S46E+03  Q.3635E+00  0.1499E+02  0.9975E+00  0.7075E-01  0.577BE-09  0.4750E+01  0.5062E+00  -0.17SOE+01 

5  0.136BE+02  0.5846E+03  0.3635E+00  0.1499E+0Z  0.9975E+00  0.7075E-01  0.S095E-O9  0.4750E+01  0.5062E+00  -0  1S0CE+D1 

6  0.1368E+02  0.5846E+03  0.3635E+00  0.1499E+02  0.9975E+00  0.7075E-01  0.3B40E-09  0.4750E+01  0.506ZE+00  -0  1250E+01 

7  0.1368E+02  0.5846E+03  0.3635E+00  0.1499E+02  0.9975E+00  0.7075E-01  0.1758E-09  0.4750E+01  0.5062E+00  -O.IOOOE+OI 

8  D.1368E+02  0.5B46E+03  0.3635E+00  C.1499E+02  0.9975E+00  0.7075E-CI1  0.9865E-10  0.475QE+01  0.5062E+00  -0  7500E+0C 

9  0. 1368E+02  0.5846E+03  0.3635E+00  0.1499E+C2  0.9975E+00  0.7075E-01  0.6522E-10  0.4750E+01  0.5062E+00  -0  5000E+00 

10  0.1368E+02  0.5846E+03  0.3635E+00  0.1499E+O2  0.9975E+00  0.7075E-01  0.4462E-10  0.4750E+01  0.5062E+00  -0  2500E+00 

11  0.1368E+D2  0.5846E+03  0.3635E+00  0.1499E+02  0.9975E+00  0.7075E-01  -0.3366E-12  0.4750E+0!  0.5062E+00  O.OOOOE+OO 

12  0.1368E+02  0.5846E+03  0.36S5E+00  0.1499E+02  0.9975E+00  0.7O75E-O1  -0.4S29E-10  0.4750E+01  0.5062E+00  0  2500E+00 

13  0.1368E+02  0 . 5846E+03  0.3635E+00  0.1499E+02  0.9975E+00  0.7075E-01  -0.6569E-10  0.4750E+01  0.5062E+00  0.5000E+00 

14  0.1368E+02  0.5846E+03  0.3635E+0D  0.1499E+0Z  0.9975E+00  0.7075E-01  -0.9935E-10  0.4750E+01  0.5062E+C0  o!750Oe+CO 

15  0.136BE+02  0.5846E+03  0.3635E+00  0.1499E+02  0.9975E+00  0.7D75E-01  -0.1765E-09  0.4750E+01  0.5062E+00  0  I000E+01 

16  Q.1368E+02  0.5846E+03  0.3635E+0D  0.1499E+D2  0.9975E+00  0.7075E-01  -0.3B4BE-09  0. 47506+01  0.5062E+00  0.1250E+01 

17  0.1368E+02  0.58466+03  0.3635E+00  0.1499E+02  0.9975E+00  0.7075E-01  -0.5102E-09  D.4750E+01  0.5062E+00  0.1500E+01 

18  0.1368E+02  0.5846E+03  0.3635E+00  0.1499E+02  0.9975E+00  0.7075E-01  -0.57846-09  0.4750E+01  0.5062E+00  0  1750E+01 

19  0.1368E+02  0.5846E+03  0.3635E+00  0.1499E+O2  0.99756+00  0.7075E-01  -0.2527E-09  0.4750E+01  0.5D62E+00  0  2000E+01 

20  0.1368E+02  0.58466+03  D.3635E+00  O.1409E+O2  0.9975E+00  0.7075E-01  -0.3005E-09  0.4750E+01  0.5C62E+00  0.22506+01 

21  0.13686+02  0.5846E+0J  0.3635E+00  0.1499E+02  0.9975E+00  0.707SE-01  O.OOOOE+OO  0.4750E+01  0.5062E+00  0.2500E+01 

BLOCK  1  VARIABLES  AT  K,  J  •  4,  30  ITERATION  NUMBER:  2500 

L  PRESSURE  TEMPERATURE  MACH  MUHBER  TOTAL  PRESS  U-COSINE  V-COSINE  U-COSINE  X  Y  Z 


1  0. 14126+02  0.5B98E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

2  0.I412E+02  0.5S98E+03  0.29456+00  O.1499E+02  O.IOOOE+OI 

3  0.1412E+02  0.5898E+03  0.2945E+00  O.1499E+0Z  0.1000E*01 

4  0.1412E+02  0.5B98E+03  0.2945E+00  0.1499E+02  0.10006+01 

5  0. 1412E+02  0.58986+03  0.2945E+00  0.1499E+02  0.10C0E+01 

6  0. 1412E+02  0.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

7  0.1412E+02  0.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

B  0.14I2E+02  O.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

9  0.1412E+02  0.589BE+D3  0.2945E+00  0.1499E+02  O.IOOOE+OI 

10  0.14I2E+02  0.5898E+D3  0.2945E+00  0.1499E+02  O.IOOOE+OI 

11  0.1412E+02  0.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

12  0.1412E+02  0.5898E+O3  D.2945E+00  0.1499E+02  O.IOOOE+OI 

13  0.1412E+02  0.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

14  0.1412E+02  0.5898E+03  0.2945E+00  0.1499E+O2  O.IOOOE+OI 

15  0.1412E+02  0.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

16  0. 1412E+02  0.5898E+03  D.2945E+00  0.1499E+02  O.IOOOE+OI 

17  0. 1412E+02  0.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

18  0. 1412E+02  0. 5898 E +03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

19  0.1412E+02  0.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

20  0.1412E+02  0.5898E+03  0.2945E+00  0.1499E+02  O.IOOOE+OI 

21  0.1412E+02  0.5898C+03  0.2945E+OC  0.1499E+02  O.IOOOE+OI 


0.9359E-02  O.OOOOE+OO  0.7250E+01  0.6000E+00  -0.2500E+01 
0.9359E-02  0.2247E-09  0.7250E+01  0.6000E+00  -0.2250E+01 
0.9359E-02  0.2751E-09  0.7250E+01  0.6000E+00  -0.200CE+01 
0.9359E-02  0.3920E-09  0.7250E+01  0.6000E+00  -0.1750E+01 
0.9359E-02  0.3909E-09  0.7250E+01  0.6000E+00  -0.1500E+01 
0.9S59E-02  0.2930E-09  0.7250E+01  0.6000E+00  -O.1250E+01 
0.9359E-02  0.1174E-09  0.7250E+01  0.6000E+00  -O.IOOOE+OI 
0.9I59E-02  -0.3262E-10  0.7250E+01  0.6000E+00  -0.7500E+00 
0.9359E-02  -0.1011E-09  0.7250E+01  0.6000E+00  -0.500DE+00 
0.9359E-02  -0.7664E-10  0.7250E+01  0.6000E+00  -0.2500E+00 
0.9359E-02  0.1706E-12  0.7250E+01  0.6000E+00  O.OOOOE+OO 
0.93S9E-02  0.7697E-1Q  0.7250E+01  0.6000E+00  0.250DE+00 
0.9359E-02  0.1014E-09  0.7250E+01  0.6000E+00  0.5000E+00 
0.9359E-02  0.3283E-10  0.7250E+01  0.6000E+00  0.7500E+00 
0.9359E-02  -0.1173E-09  0.7Z50E+01  0.6000E+00  O.IOOOE+OI 
0.9359E-02  -0.2930E-09  D.7250E+01  0.6000E+00  0.1250E+01 
0.9359E-02  -0.3910E-09  0.7250E+01  0.6000E+00  0.1500E+01 
0.93596-02  -0.3921E-09  0.7250E+01  0.6000E+00  0.1750E+01 
0.9359E-02  -O.275ZE-09  0.7250E+01  0.6000E+00  0.2000E+D1 
0.9359E-OZ  -0.2247E-09  0.7250E+01  0.6000E+00  0.2250E+01 
0.9359E-02  O.OOOOE+OO  0.7250E+01  0.6000E+00  0.2500E+01 
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BLOCK  1  VARIABLES  AT  K 
L  PRESSURE  TEMPERATURE 

1  0.1052E+02  0.54246+03 

2  0.1052E+C2  0.5424E+03 

3  Q.1Q52E+02  0.5424E+03 

4  0.1052E+02  0.5424E+03 

5  0. 1052E+02  0. 5424E+03 

6  0. 1052E+02  0.5424E+03 

7  0.1052E+02  0.5424E+03 

8  0. 1052E+O2  0 . 5424E+03 

9  0.1052E+02  0.5424E+03 

10  0. 1052E+02  0.S424E+C3 

11  0. 1052E+D2  0.5424E+03 

12  0.1052E+02  O.5424E+03 

13  0, 1052E+02  0.5424E+03 

14  0. 1Q52E+02  0.5424E+O3 

15  0.1052E+02  0.5424E+03 

16  0.1052E+02  O.54Z4E+03 

17  0.1052E+02  0.5424E+03 

18  0.1052E+02  0. 5424E+03 

19  0.1052E+02  0.5424E+03 

20  0.1052E+02  0.54246+03 

21  0.1052E+0Z  0.54 24E+G3 

BLOCK  1  VARIABLES  AT  K, 
L  PRESSURE  TEMPERATURE 

1  0.1374E+02  0.58556+03 

2  0. 1374E+02  0.5855E+03 

3  0.1374E+0?  0.585SE+03 

4  0.1374E+02  0.5B55E+03 

5  0.1374E+02  0.5855E+O3 

6  0.1374E+02  0.5S55E+03 

7  0.1374E+02  0.5855E+03 

8  0. 1374E+02  0.5855E+03 

9  0.1374E+02  0.5855E+03 

10  0.1374E+02  0.5855E+03 

11  0.1374E+02  0.5855E+03 

12  0.1374E+02  0.5855E+03 

13  0.1374E+02  0.5855E+O3 

14  0.1374E+02  0.5855E+03 

15  0.1374E+02  0.5855E+03 

16  0. 1374E+02  0.58S5E+03 

17  0. 1374E+02  0.5855E+03 

18  D.1374E+02  0.5855E+03 

19  0.1374E+02  0.5B55E+03 

20  0.1374E+02  0.58S5E+03 

21  0.1374E+02  0.5855E+03 


Listing  E-6.  Continued 


,  J  = 

8, 

10 

ITERATION  NUMBER:  1 

6500 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

U-COSINE 

X 

0.7186E+D0 

0.14B4E+02 

0.9921E+00 

0.12516+00 

O.OOOOE+OO 

0.2250E+01 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0.1251E+00 

0.2919E-OS 

0. 2250E+01 

0.7186E+00 

0 . 1 484E+02 

0.9921E+00 

0.1251E+00 

0. 1465E-08 

0.2250E+01 

0.7186E+00 

0.14S4E+O2 

0.9921E+00 

0. 125IE+00 

0. 1635E-08 

0.2250E+01 

0.71868+00 

0.1484E+02 

0.9921E+00 

O.1251E+O0 

0.9203E-09 

0.2250E+01 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0.1251E+D0 

0.7677E-09 

0.2250E+01 

0.7186E+00 

0.1434E+02 

0.9921E+00 

0. 1251E+00 

0.5BS2E-09 

D.2250E+01 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0.1251E+00 

0.4473E-09 

0.2250E+01 

0.7186E+00 

0.1434E+02 

0.9921E+00 

0. 1251E+00 

0.2950E-09 

0.2250E+01 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0. I251E+00 

0. 1457E-09 

0.2250E+01 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0. 1251E+00 

-0.2399E-12 

0.2250E+01 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0.1251E+00 

-0.1462E-09 

0.2250E+01 

0.7186E+00 

0.1484E+0Z 

0.9921E+00 

0. 1251E+00 

-0.2955E-09 

0 .22506+01 

0.71B6E+00 

0. 1484E+02 

0.9921E+00 

0. 1251E+00 

-0.4478E-09 

0.2250E+01 

0.7186E+00 

0. 14S4E+02 

0.9921E+00 

0.1251E+00 

-0.5857E-09 

0.2Z5DE+Q1 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0.1251E+00 

-0.7682E-09 

0.2250E+01 

0.7186E+00 

0.14B4E+02 

0.9921E+00 

0.12516+00 

-0.92D9E -09 

0.2250E+01 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0.1251E+00 

-0.1636E-08 

0.2250E+OI 

0.7186E+00 

0.1484E+02 

0.9921E+00 

0. 1251E+0Q 

-0.14668-08 

O.225OE+0I 

0.7186E+OD 

0.1484E+02 

0.9921E+00 

0. 1251E+00 

-0.Z919E-08 

0.2250E+OI 

0.71 868+00 

0.1484E+02 

0.9921E+00 

0.1251E+00 

O.OOOOE+OO 

0.2250E+01 

J  = 

8. 

20 

ITERATION  NUMBER:  2500 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

U-COSINE 

X 

Y  2 

0.7437E+00  -0.2500E+0J 
0.7437E+00  -0.225OE+OI 
0.7437E+00  -0.2000E+01 
0.7437E+00  -0.1750E+01 
0. 7437E+00  -0.1500E+01 
0.7437E+00  -0.1250E+01 
0.7437E+00  -0. 1000E+01 
0.7437E+00  -0.7500E+DO 
0.7437E+0D  -O.SOOOE+OO 
0.7437E+00  -0.2500E+00 
0 . 7437E+00  O.OOOOE+OO 
0.7437E+00  0.2500E+00 
0.7437E+00  0.5000E+00 
0.7437E+00  0.7500E+00 
0.7437E+00  O.IOOOE+OI 
0.7437E+00  0. 125OE+01 
0.7437E+00  0.1500E+01 
0.7437E+00  0.175QE+01 
0.7437E+00  0.20006+01 
0.7437E+00  0.2250E+01 
0.7437E+00  0.25006+01 


T 


Z 


0.3513E+C0 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+0O 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 

0.3513E+00 


0.1496E+0Z 
0.14968+02 
0. 1496E+02 
0. 1496E+02 
O.1496E+02 
0. 1496E+02 
0. 1496E+02 
0. 1496E+Q2 
0. 1496E+02 
0. 1496E+02 
0. 1496E+02 
0. 1496E+02 
0.1496E+02 
0.1496E+02 
0.1496E+02 
0.14968+02 
0.1496E+02 
0.1496E+02 
0.1496E+02 
0.1496E+02 
0.1496E+Q2 


0.9B59E+00 
0.9859E+00 
0.9859E+00 
0.9859E+00 
0.9859E+00 
0 .98596+00 
0.9B59E+00 
0.9859E+00 
0.9359E+00 
0.9859E+00 
0.9859E+00 
0.9B59E+00 
0.9859E+00 
0.9859E+00 
0.9859E+00 
0.9B59E+00 
0.9859E+00 
0.9859E+00 
0.9859E+00 
0.9B59E+00 
0.9B59E+00 


0. 1675E+00 
0.1675E+00 
0. 1675E+00 
0.1675E+00 
0. 1675E+00 
0.1675E+00 
0.1675E+00 
0.1675E+00 
0. 1675E+00 
0. 1675E+00 
0. 1675E+00 
0.1675E+00 
0. 1675E+00 
0.1675E+00 
0.1675E+00 
0.1675E+00 
0. 1675E+00 
0. 1675E+00 
0.1675E+00 
0.1675E+00 
0.1675E+00 


O.OOOOE+OO 
0.3928E-09 
0.4332E-09 
0.7417E-09 
O.5986E-09 
0.3885E-D9 
0. 1377E-09 
0.5768E-10 
0.4019E-10 
0.3424E-10 
-0.1337E-11 
-0.3690E-10 
-0.4285E-10 
-0.6040E-10 
*0. 1406E-O9 
-0.3916E-09 
-0.6019E-09 
-0. 7447E-09 
-0.4356E-09 
-0.3942E-09 
O.OOOOE+OO 


0.4750E+01 

0.4750E+01 

0.4750E+01 

0.4750E+01 

0.475OE+O1 

0.4750E+01 

0.4750E+01 

0.4750E+OI 

0.4750E+01 

0.4750E+01 

0.4750E+01 

0.475QE+01 

0.4750E+01 

0.4750E+01 

0.4750E+01 

0.475DE+01 

0.4750E+01 

0.4750E+01 

0.4750E+01 

0.4750E+01 

0.4750E+01 


0.1181E+01 
0.1181E+01 
0.11B1E+01 
0.11B1E+01 
0.1181E+01 
0.1 181E+01 
C.1181E+01 
0.1181E+01 
0.1 1B1E+01 
0. 11B1E+01 
0.1181E+01 
0.1181E+01 
0.1181E+01 
0.1181E+01 
0.1 181E+01 
0.1181E+01 
O.1181E+01 
0.11B1E+01 
0.1181E+01 
0.T181E+01 
0.1181E+01 


-0.2500E+01 
-0.2250E+01 
-0.2000E+01 
-0.I75DE+01 
-0. 1500E+01 
-0. 1250E+01 
-O.IOOOE+OI 
-0.7500E+00 
-O.SOOOE+OO 
-0.250CE+00 
O.OOOOE+OO 
0.250GE+aa 
0.5000E+00 
0.7500E+00 
O.IOOOE+OI 
0. 1250E+01 
0. I500E+01 
0. 1750E+O1 
0. 2000E+01 
0.2250E+01 
D.2500E+01 
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Listing  E-6.  Concluded 


BLOCK  1  VARIABLES  AT  K, 

J  -  8, 

30 

ITERATION  NUMBER: 

2500 

L 

PRESSURE 

TEMPERATURE  MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

V-COSINE 

X 

Y 

1 

0, 1414E+02 

0.5904E+03 

0.2835E+00 

0.1496E+02 

0.9999E+00 

0. 12O6E-01 

O.OOOOE+OO 

0.7250E+01 

0.1400E+01 

2 

D.1414E+02 

0.59C4E+03 

0.2835E+00 

0. 1496E+02 

0.9999E+00 

0. 1206E-C1 

-0.9522E-10 

0.7250E+01 

0.1400E+01 

3 

0. 14142+02 

0.5904E*03 

D.2835E+00 

0. 1496E+02 

0.9999E+00 

0.1206E-01 

-0.2826E-09 

0.7250E+01 

0.1400E+01 

4 

0. 1414E+Q2 

0.5904E+03 

0.2835E+00 

0. 1496E+02 

0.9999E+00 

0. 1206E-01 

-0.2175E-09 

0.7250E+01 

0.1400E+01 

5 

0.1414E+02 

0.5904E+03 

0.2835E+00 

0.1496E+02 

0.9999E+00 

D.1206E-01 

-0.4603E-10 

0.7250E+01 

0.14002+01 

6 

0.1414E+02 

0.5904E+03 

0.2835E+00 

0. 1496E+02 

D.9999E+0Q 

0.1206E-01 

0.1235E-09 

0.7250E*01 

O. 1400E+01 

7 

0. 1414E+02 

0. 5904E+D3 

0.2B35E+00 

0. 1496E+02 

0.9999E+00 

0.1206E-01 

0.1865E-09 

0.7250E+01 

0. 1400E*01 

a 

0.1414E+02 

0.5904E+03 

0. 2835 E *00 

0.14966*02 

0.9999E+00 

0. 1206E-01 

0.1645E-09 

0.7250E+01 

0.14006*01 

9 

0.1414E+02 

0.5904E+03 

0.2835E+00 

0.1496E+02 

0.9999E+00 

0.1206E-01 

0.1054E-O9 

G.72SQE+01 

0. 1400E*01 

10 

0.1414E+02 

0.5904E*03 

0.2B35E+00 

0.1496E+02 

0.9999E+00 

0.1206E-01 

0.4B74E-10 

0.7250E+01 

0. 1400E+01 

ii 

0. 1414E+02 

0.59046*03 

0.2835E+00 

0.1496E+02 

0.9999e*00 

0. 120&E-01 

-0.1057E-11 

0.7250E*01 

0. 1400E+01 

12 

Q.1414E+02 

0.5904E+03 

0.2835E+00 

0. 1496E+02 

0.9999E+00 

0.1206E-01 

-0.5086E-IO 

0.7250E+01 

0. 1400E+01 

13 

0.1414E+02 

0.5904E+03 

0 . 2835E+00 

0.1496E+02 

0.9999E+00 

0.1206E-01 

-0.1075E-09 

0. 7250 E +01 

O. 1400E+01 

14 

0. 14142*02 

0.5904E+03 

0.2835E*00 

0.1496E+02 

0.9999E+00 

0.1206E-01 

-0.1666E-09 

0.7250E+01 

0.1400E+01 

15 

0.1414E*02 

0.5904E+03 

0.2S35E*D0 

0.1496E+02 

0.9999E+00 

0.1206E-01 

-0.1885E-09 

0.7250E+01 

0.1400E+01 

16 

0.1414E+02 

0.59D4E+03 

0.2835E+00 

0.1496E+02 

D.9999E+0Q 

0.1206E-01 

-0.1252E-09 

0.7250E+01 

0.1400E+01 

17 

0.1414E+02 

0.5904E+03 

0.2835E+00 

0- 1496E+02 

0.9999E+00 

0.1206E-01 

0.4463E-10 

0.72502*01 

0. 1400E+D1 

16 

0. 1414E+02 

0.5934E+03 

0.2835E+00 

0. 1496E*02 

0.9999E+00 

0.1206E-D1 

0.2166E-09 

0.7250E+01 

0. 1400E+01 

IP 

0. 1414E+02 

0.5904E+03 

0.2B35E+00 

0. 1496E*02 

0.9999E+00 

0.1206E-01 

0.2820E-09 

0.7250E+01 

0. 1400E+01 

20 

0.1414E+D2 

0.5904E+03 

0.2B35E+00 

0.1496E+02 

0.9999E+00 

0. 1206E-01 

0.9495E-10 

0.7250E+01 

0.1400E+01 

21 

0. 1414E+02 

0.5904E+03 

0.2835E+00 

C.1496E+02 

0.9999E+00 

0.1206E-01 

€.00002*00 

0.7250E+01 

0.1400E+01 

z 

0.2500E»01 
0.2250E+01 
0.2000E*01 
0. 1750E+01 
C.150CE+01 
0.1250E+01 
0.100DE+01 
0.7500E+00 
0.5000E+00 
0.2500E+00 

o.ooooe+oo 

0.2500E+00 

0.5000E+00 

0.7500E+00 

Q.1000E+01 

0.1250E+01 

0.1500E*01 

0.175CE+01 

0.2000E+01 

0.2250E+01 

0.2500E+01 
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Listing  E-7.  Grid  and  Initial  Condition  Generator  (Multiblock) 


1 

1. 

PROGRAM  ICF1LE 

2 

2. 

PARAMETER  C  JO-33 , KDal 1 ) 

3 

3. 

DIMENSION  R(JD,ICD),RUCJDiKD},RV(JD,ICD),E(JD1ia>> 

4 

4. 

DIMENSION  X(JD,KD),Y(JD,KD) 

5 

5. 

DATA  0/1.4/ 

6 

6. 

GM1-G-1. 

7 

7. 

DELK-8./32 

a 

C 

FORM  THE  ‘X1  GRID  ARRAY 

9 

8. 

DO  1  J=1,JD 

10 

9. 

DO  1  K=t,KD 

11 

10. 

IF(J.EO.I)  THEN 

12 

11. 

XU,K>=0. 

13 

12. 

ELSE 

14 

13. 

X(J,K>-XCJ-1,K)+DELX 

15 

14. 

END  IF 

16 

15. 

1 

CONTINUE 

17 

C 

FORM  THE  'Y*  GRID  ARRAYS 

18 

16. 

DO  2  J=1, JD 

19 

17. 

IF(X(J,KD>.LE.2.>  YO=1. 

20 

18. 

1 F(X< J,KD).GT .6. }  TO-2. 

21 

19. 

IF((X(J,KD>.GT.2.].AHD.(X(J,KD>.LE.6.))  THEN 

22 

20. 

Y0=1.+(X(J,KD)-2.)*0.25 

23 

21. 

END  IF 

24 

22. 

DELY=YO/(KD-1) 

25 

23. 

Y<J,1)>0.0 

26 

24. 

DO  2  K-2.KD 

27 

25. 

Y(J,K)=Y{J,X-1)-H)ELY 

28 

26. 

2 

CONTINUE 

29 

C 

FORM  THE  ARRAYS  OF  NON-DIMENSIONAL  CONSERVATION  VARIABLES 

30 

C 

CONSISTENT  WITH  A  FREE -STREAM  MACH  NUMBER  OF  0.29 

31 

27. 

FMACH-0.29 

32 

28. 

FACT=(1.*.2*FMACN**2> 

33 

29. 

PBAR=FACT**t-3.5)/G 

34 

30. 

DO  1000  J=1,JD 

35 

31. 

DO  2000  K=1,KD 

36 

32. 

R(J,X)=FACT**t-2.5) 

37 

33. 

RU( J , X)eR(J,K)*FHACH*SORT(1 ./FACT) 

38 

34. 

RV(J,K)=0. 

39 

35. 

£{J,K>-PBAR/GM1+.5*(RLt(J,K3**2)/R(J,K> 

40 

36. 

2000  CONTINUE 

41 

37. 

1000  CONTINUE 
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Listing  E-7.  Concluded 


42  3B.  NCI  M3 

43  3?.  WH[TE(20)NC1,G 

44  40.  WRITE(20)15,6 

45  41.  URI1E(20)((  XCJ,K),J=  1,15),K-1,  A), 

46  *  <(  r(J,K),J=  1,15),K=1,  6} 

47  42.  URITE(20)<(  RCJ,K},J=  1,15>,K=1,  6), 

48  *  (<RU(J,K),J-  1,15),K-1,  6), 

49  *  «RV(J,K),J=  1,15>,K=1,  6>, 

50  •  «  E(J,IO,J=  1,1S>.K-11  6> 

51  43.  URITE<20)15,7 

52  44.  M1ITE(20)«  X<J,K), J=  1 , 15>,K=5, 11), 

53  *  C(  T(J,IC>, J=  1 , IS > ,K=S ,  1 1  > 

54  45.  URITE<20)({  R(J,K),J-  1,15j,IC-5,11>, 

55  *  <(RU(J,K>, J=  1,15>,K=5,11), 

56  *  «RV(J,K),J=  1 , 15),K=5, 11 ), 

57  *  ((  E(J,K), J=  I.ISJ.K^.II) 

58  46.  URITE(20)20, 1 1 

59  47.  URITE(20>({  XiJ.IO.JsH.HSJ.Ksl.ll), 

60  *  «  Y(J.K>1J»14.33).K-1,11) 

61  48.  URITE(20)((  R<J.K>,J-14,33),K=1,11>, 

62  *  ((RlKJ.IO.JsK.SSJ.K^.II), 

63  •  (<RV(J,K>, J=14,33),K=1,11), 

64  *  «  E{J,K>,J«14,33),K=1.11> 

65  49.  STOP 

66  50.  END 
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Listing  E-8.  Execution  and  Input  File  (Multiblock) 


//A05569X  JOB  (SVT, AT TOOOCO, 00, 78904912),  'DON  TOOD  EL 2  CFD*. 

//  CLASS=X1UHE=C,S),USER=A05M9,PASSU0RD=)«X)tXXXX,KSGCLASS=Z, 

//  HSGLE VEL= 1 , PRTY=8 , NOT1 FY»A05569 

//* 

/‘ROUTE  PRINT  RHTO 

/‘JOBPARK  ROOM -5  2ND  FLOOR  DO  BLDG  1099 
//* 

//  EXEC  CRAY 

CR SUBMIT  F(OSJOB)  MOTIFY(A05569)  DEST(RHTO)  PRINT{3)  HOLD 
//OSJOB  DD  » 

JOB, JN-A05569Y,T=150,MFL. 

ACCOUNT, AC=789a4910,US»A05$69. 

FETCH, DN=CODE ,T£XT='DSN=A05 569, BAR  C ( BARC  2D ) , D I SP=S  H  R ' . 
CFT,I=C0DE,L=O. 

ACCESS , D  M=B  N  C  HI ! 6 , PDN=SNC  H  LI B ,  I D^BNCHNRIC, OWN-SYSTEM. 

ACCESS ,0M*FT02,PDN=ICCASE3. 

LOR,  L  tB-SNCHU  B . 

*SA VE , ON  =FT04 , PON =R  SCA  SE3 . 

DISPOS£,0N=FT04,DC=ST,DF-TR,TEXT=" 

1 D  SN= A05569 . 1 RC A  S  E3 . RE  ST , D I SP= ( , C AT  LG ) , ' * 
'UN1T=DISK,SPACE=(CYL, (38),RLSE), 1  * 
,DCB=<RECFM=F,LRECL=4096,BLKSIZE=4096)>. 

/EOF 

tIKPUTS 

NMAX=2SOO,  NP-2500, 

PREF=15.0,  TREFR=600., 

] FXPRT-1,  NBLOCK=3, 

D1S2-Q.C0,  0154=0.30, 

DTCAP=  7.0,  PCflMAX-10.0, 

NSPRT-50,  1AXIST-0,  STOPL2=>.E-20, 

SB LOCK  :#l 
HPSEG=1 , 

IMVISC(1>=0,  INVJSC(2)=0, 

tPRTSEC 

#  JKLPI(1,1,1)-2,14,2,  JKLPI(1,2,1>=2,4,2,  IP0R0{1)=1, 

ABOUNDS 

NJSEC=2, 

JLINE(1)=1, 

JKL0U(1)=2,  JKHIGH(1)=5,  JTYPE(1 )*0, 

J$IGN(1)-1,  PRESSJ(1)=0, 7142857,  TEMPJ<1)=1 .0, 

JLINE<2)=15, 

JK10U(2)e2,  JKHIGHC2)-6,  JTYPE(2)=70, 

JSIGN(2)=-1 ,  INTERJC2)=1 , 

NKSEG3?, 

KLINEC1 >=1, 

KJLOU(1)=1,  KJHIGH<1)=15,  KTtPECI >=50, 

KSIGH<1)*1, 

KL1HE(2)=6, 

KJLCU(2)=1,  KJHIGH<2)=14,  KTYPE[2)=70, 

KSIGN(2)>-1,  lNIERK<2)-2, 

S 

SBLOCK  :#2 
NPSEG-1, 

IHVISCC1 )=0,  INVISC(2)=0, 

$ 

SPRTSEG 

JKLPI C1*1 , 13=2, 14,2,  JKLPI(1,2,1)=2,4,Z,  IPORD(1)-1, 
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Listing  E-8.  Concluded 


JBOtMDS 

NJSEG=2, 

JLINE<1)=1, 

JKLOU<1)=2,  JKHIGKC1 )=6,  JTYPEC1>=0, 

JSIGMCD-1,  PSESSJ( I )=0. 7142857,  TEMPJ<1)=1.0, 

JLINEC2J-15, 

JKLOH(2J=1,  JtCHIG  JTYPE(2)>70, 

JS[GM<2)  — 1,  INTERJ(2)=3< 

NKSEG=2, 

KLINE<1)=1, 

KJLOUO)-1.  KJHIGtU  1  )=14 ,  KTYPEC1 >=70, 

K5IGN<1)=1,  IMTERKO  )=2, 

<L1HEC2)=7, 

KJLOU<2)=1,  KJ«IGH(2>=15,  KTYPE{2)=50, 

KSIGN<2)=-1, 

* 

SB  LOCK  :« 

NPSEG»t, 

I  MW  I  SC  1 1 >=C ,  IHVI$C(2)=0, 

t 

SPRTSEG 

JKLP1(1,1,1>»1,19,2,  JKIPI<1,2,1)=2,19,2,  1PORO(1>=1, 

s 


SBOUNDS 

NJ$EG=3, 

JLINE(1)=1, 


JKL0U(1)=2, 
JSIGNC1 )=1 , 
JLINE<2)=1, 

JKH1GH(1)>6, 

INTERJ(1)"1, 

JTYPE(1>=70, 

JKLOU(2)=5, 

JS1GN(2)>1, 

JLINE<3)=20, 

JKHIGH(2)-10, 

INTER J<25=3, 

JTYPE(2>=70, 

JKLQU(3)=2, 

JKHIGH<3)=10, 

JTYPE<3)'0, 

JSIGM(3)=-1, 

*KSEG=2, 

KL1NE<1)=1, 

PRESSJ<3)=0. 67285, 

TENPJ(3)-1.0 

KJLOUM)=1, 
KSIGN t 1 >=1 , 
KLIMEC2>=11, 

KJHIGHC 1 )=2D, 

KTYPEC1 }=50, 

KJL0U<2)=1 , 
KSIGN<2)=- 1, 

KJHIGH(2)=20, 

KTYPE(2)=50, 

/EOJ 
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Listing  £-9.  Multiblock  Output 


NAMELIST  INPUTS: 


PREF 

= 

0.150000E+02 

iaxist 

■ 

0 

TREFR 

= 

0.600000E*D3 

N8L0CK 

= 

3 

VRAT 

= 

-O.S66667E+00 

NMAX 

a 

2500 

TSUTH 

■ 

0. I94600E+03 

NC 

E 

0 

RE 

= 

O.OOCDOCE+OO 

NSPRT 

3 

50 

PR 

= 

0.72000CE+00 

NP 

■ 

2500 

PRT 

= 

0.900000E+00 

1FXPRT 

■ 

1 

DIS2 

■ 

O.OOOOOOE+OO 

1FXPLT 

3 

0 

DIS4 

3 

O.SOjOuOE+OO 

L2PL0T 

3 

0 

DTCAP 

= 

0.700000E+01 

I  PLOT 

3 

0 

PCQMAX 

= 

0.100000E+02 

LMOOE 

a 

1 

SPLEND 

■ 

0.100000E+01 

MBORD 

= 

3 

SHOO 

*r 

O.OOOOOOE+OO 

NUMDT 

B 

0 

ST0PL2 

= 

0.100000E-19 

IVAROT 

= 

2 

STOPIR 

■ 

0.500000E+01 

I SOLVE 

s 

1 

ALPHA 

O.OOOOOOE+OO 

IRNS 

m 

1 

XHACH 

O.OOOOOOE+OO 

[F1LTR 

= 

1 

IMUTUR 

= 

1 

THE  ORDER  OF  BLOCK  PROCESSING  FOLLOWS 

1.  Z,  3 

FOR  BLOCK  1 
JHAX  =  15  KMAX  =  6 
NH  =  IS  IJK  =  90 

NAMELIST  BLOCK  FOR  BLOCK  1 
GAMMA  -  0.140000E+01  I  MV  I  SC  = 

COFM1X  =  0.900000E-01  LAM IN  • 

DTBLK  -  O.OOOOOOE+OO  NPSEG 

UBCSEG  = 

NAMELIST  PRTSEG  FOR  BLOCK  1 

JKLPI 

JA  JB  JS  KA  KB  KS 

1  2  14  2  2  4  2 

NAMELIST  BOUNDS  FOR  BLOCK  1 
JSEG  JUNE  JKLOU  JKHIGH  JTVPE  INTERJ 

1  1  2  5  0 

2  15  2  6  70  1 

KSEG  KLINE  KJLOU  K J HIGH  KTTPE  INTERK  I 

1  1  1  15  50 

2  £  1  14  70  2 

GRID  PATCHES  FOR  BLOCK  1 

J-PATCHES  MINIMUM  MAXIMUM 

J  K  J  K 

1  22  14  5 

K-PATCHES  MINIMUM  MAXIMUM 

J  K  J  K 

1  22  14  5 

FOR  BLOCK  2 
JMAX  =  15  KMAX  =  7 
NM  -  15  UK  =  105 

NAMELIST  BLOCK  FOR  BLOCK  2 
GAMMA  >  0. 140000E+01  INVISC  -  0  0 

COFHIX  =  0.900000E-01  LAM  IN  a  0  0 

DTBLK  =  O.OOOOOOE+OO  NPSEG  «  1 

NBCSEG  =  0 


0  0 
0  0 
1 
0 

1P0R0 
J  K 

1  2 


TEMPJ  JTTPE 

0. 100000E+01  FREE 

CONTIGUOUS 
TEHPK  KTTPE 

SLIP 

CONTIGUOUS 


JSIGN  PRES5J 
1  0. 714286E+00 

-1 

(SIGN  PRESSK 

1 

-1 
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NAMELIST  PRTSEG  FOR  BLOCK  2 

JKLPI  JPORD 


JA 

JB  JS 

KA 

KB  KS 

J  K 

1 

2 

14  2 

2 

4  2 

1  2 

NAMELIST  BOUNDS  FOR  BLOCK 

2 

JSEG 

JLIHE 

JKLDW  JKHTGH 

JTYPE 

INTERJ 

JSIGN  PRESS J 

TEMPJ 

JTYPE 

1 

1 

2  6 

0  * 

1  0.7142&6E+00 

0.100000E+01 

FREE 

2 

15 

1  6 

70 

3 

-1 

CONTIGUOUS 

KSEG 

KLINE 

KJ LOU  KJHIGH 

KTTPE 

INTERS 

KS1GN  PRESSK 

TEHPK 

KTYPE 

1 

1 

1  14 

70 

2 

1 

CONTIGUOUS 

2 

7 

1  15 

50 

•1 

SLIP 

GRID  PATCHES  FOR  BLOCK  2 


J-PATCHES  MINIMUM 
J  K 

1  2  2 


MAXIMUM 

J  K 
U  6 


K-PATCHES  MINIMUM 
J  K 

1  2  2 


MAXIMUM 

J  K 
U  6 


FOR  BLOCK  3 
JMAX  =  20  KMAX  c  11 
KM  -  20  IJK  =  220 


NAMELIST  SLOCK  FOR  BLOCK  3 
GAMKA  *  O.HOCOOE+OI  INVISC 

COFM1X  >  0.900000E-0!  LAM  IN 

DTBLK  =  O.OOOOOOE+OO  NPSEG 

NBCSEG 

NAMELIST  PRTSEG  FOR  BLOCK  3 
JKLPI 


0  0 
0  0 
1 
0 

I  POM) 


JA 

JB 

JS 

KA 

KB  KS 

J  K 

t 

1 

19 

2 

2 

10  2 

1  2 

NAMELIST  SOUNDS  FOR  BLOCK 

3 

JSEG 

JLINE 

JKLDW 

JKHIGH 

JTYPE 

INTERJ 

JSIGN 

PRESSJ 

TEMPJ 

JTYPE 

1 

1 

2 

6 

70 

1 

t 

CONTIGUOUS 

2 

1 

5 

10 

70 

3 

1 

CONTIGUOUS 

3 

20 

2 

10 

0 

-1 

0. 67205 0E+00 

0.10000QE*01 

FREE 

KSEG 

KLIHE 

KJLDU  KJHIGH 

KTYPE 

INTERK 

KSIGN 

PRESSK 

TEMPK 

KTYPE 

V 

1 

1 

20 

50 

1 

SLIP 

2 

11 

1 

20 

50 

-1 

SLIP 

GRID  PATCHES  FOR  BLDCK  3 


J-PATCHES  MINIMUM 
J  K 

1  2  2 


MAXIMUM 
J  K 
19  10 


K-PATCHES  MINIMUM 
J  K 

1  2  2 


MAXIMUM 
J  K 
19  10 
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COUNT 

BLOCK  DT 

L2  RESIDUAL  HASS  FLUX 

MOMENTUM  FLUXES  ENERGY  FLUX 

MAX  PERCENT  MAX  LOCATION 

X 

T 

VARIATION 

J 

K 

SO 

1 

0.7000E+01 

O.2285E-03  -0.239AE-02 

0.4552E-02 

-0.S938E-02  -0.2479E-O2 

O.S977E+00 

3 

5 

so 

2 

Q.7000E+01 

0.2260E-03  -0.2424E-02 

0.434SE-02 

-0.5790E-03  -0.2495E-02 

0.6152E+D0 

9 

6 

50 

3 

0.7000E+01 

0.1375E-D3  -0.4774E-03 

-0.3820E-03 

-0.2193E-03  -0.6867E-C3 

0.3204E+00 

2 

3 

100 

1 

0.700CE+01 

O.7362E-04  -0.8228E-03 

0. 1986E-02 

-0.6602E-03  -0.6920E-03 

0.2380E+DO 

14 

2 

100 

2 

0.700CE*01 

0. 7123E-04  -O.B3Z3E-03 

0.195SE-02 

0. 1047E-02  -0.6965E-03 

D.2570E+00 

14 

2 

100 

3 

0.7000E+01 

0.7019E-04  -0.4323E-04 

D.1062E-02 

0.5491E-03  -0.11Z6E-04 

0.191 0E+ 00 

19 

2 

150 

1 

0.7000E»01 

0.4860E-C4  -0.5889E-03 

0.1139E-02 

0.9675E-04  -0.4913E-03 

0.1534E+00 

14 

2 

t50 

2 

0.7000E *01 

0.4749E-C4  -0.6048E-03 

D.1084E-02 

0.4176E-03  -0.5113E-03 

0. 165SE-00 

9 

6 

ISO 

3 

Q.7000E+01 

0.3268E-04  -0.3383E-04 

0.6313E-O3 

0.7385E-03  -O.1179E-04 

0.103QE*00 

19 

2 

200 

1 

0 . 7000E+01 

0.3302E-04  -0.4157E-03 

0.6789E-03 

0.1567E-03  -0.3466E-03 

0.1007E+00 

14 

2 

200 

2 

0.700CE+01 

0.3215E-04  -0.4256E-03 

0.6489E-03 

0.Z108E-Q3  -0.3582E-03 

0.1208E+00 

9 

6 

200 

3 

0.7000E*01 

0.1618E-04  -0.2168E-04 

0.3963E-03 

0.5747E-03  -0.5956E-05 

0.7269E-01 

19 

2 

250 

1 

D.7000E+01 

0.2294E-04  -0.2989E-03 

0.4209E-03 

0.9561E-04  -0.2515E -03 

0.6359E-01 

14 

2 

250 

2 

0.7000E+01 

0.2240E-04  -0.3049E-03 

0.40C5E-03 

0.1032E-03  -0.2585E-03 

O.8937E-01 

9 

6 

250 

3 

0.7000E+01 

0.9082E-05  -0.1492E-04 

0.2457E-03 

0.2689E-03  -0.4941E-05 

0.4484E-01 

19 

z 

500 

1 

0.7000E+01 

0.1579E-04  -D.2O89E-03 

0.2672E-03 

0.2067E-04  -0.1763E-03 

0.3988E-Q1 

14 

2 

300 

2 

0.7000E+01 

0.1543E-04  -0.2129E-03 

0.2528E-03 

0.5517E-04  -0.1812E-03 

0.6309E-01 

9 

6 

300 

3 

0.7000E+C1 

O.5458E-05  -0.9724E-05 

0.1557E-03 

0.1645E-03  -0.3135E-05 

0.2967E-01 

19 

2 

3S0 

1 

0.7000E*01 

0. 1080E-04  -0.1444E-03 

0.1725E-03 

Q.6485E-05  -0.1222E-03 

0.2657E-01 

14 

2 

3S0 

2 

0.7000E*01 

0.1057E-04  -0. 1472E-03 

0.1623E-03 

0.2940E-04  -0.1256E-03 

0.4409E-01 

9 

6 

350 

3 

c.7000e*oi 

0.3433E-05  -D.6334E-05 

0. 1 0  OGE -03 

0.1169E-03  -0.1958E-05 

0. 1906E-01 

19 

2 

400 

1 

0.7000E+01 

0.7357E-05  -0.9890C-04 

0.1127E-03 

0.221 5E-05  -0.8378E-D4 

O.1767E-01 

14 

2 

400 

2 

0.7000E+01 

0.7197E-0S  *0.10076-03 

0.1058E-03 

0. 1661 E- 04  -0.8608E-04 

0.3027E-01 

9 

6 

400 

3 

0.7000E+01 

0.2239E-05  -0.4164E-05 

0.6556E-04 

O.7715E-04  -0.1244E-05 

0.1257E-01 

19 

2 

450 

1 

0.7000E+OT 

0.4986E-05  -0.6728E-04 

0.7424E-04 

-0.8083E -06  -0.5704E-04 

0.1206E-01 

4 

2 

450 

2 

0.7000E+01 

0.4877E-05  -0.6848E-04 

0.6960E-04 

0.9043E-05  -0.5855E-04 

0.2066E-01 

9 

6 

450 

3 

0.7000E+01 

0. 1480E-05  -0.2745E-05 

0.4329E-O4 

0.4999E-04  -0.7854E-06 

0.8316E-02 

19 

2 

500 

1 

0.7000E+01 

0.3372E-05  -0.4561E-O4 

0.4926E-04 

-0.2800E-05  -0.3869E-04 

0.8225E-02 

4 

2 

500 

2 

0.7000E+01 

0.3300E-05  -0.4642E-04 

0.4609E-04 

0.5704E-05  -0.3972E-04 

0.1404E-01 

9 

6 

500 

3 

0.7000E+01 

0.9826E-06  -0.1B19E-05 

0.2871E-04 

0.3309E-04  -0.5081E-06 

0.5538E-02 

19 

2 

550 

1 

0.7000E*D1 

0.2277E-0S  -0.3084E-04 

0.3280E-04 

0.1 56 IE- 06  -0.2618E-04 

0.5588E-02 

4 

2 

550 

2 

0.7000E*01 

0.2228E-05  -0.3138E-O4 

0.3067E-04 

0.3338E-05  -0.2686E-04 

0.9516E-02 

9 

6 

550 

3 

0.7000E+01 

0.6558E-06  -0.1209E-05 

0.1914E-04 

0.2224E-04  -0.3286E-06 

0.3701E-02 

19 

2 

600 

1 

0.7000E+01 

0.1535E-05  -0.2C81E-04 

0.2193E-04 

-0.9945E-06  -0.1767E-04 

0.3778E-02 

4 

2 

600 

2 

0.7000E+01 

0.1501E-05  -0.2115E-04 

0.20S2E-04 

0.2047E-05  -0. 1809E-04 

0.6434E-02 

9 

6 

600 

3 

0.7000E+01 

0.4385E-06  -0.7969E-06 

0.128DE-04 

0. 1484E-04  -0.2069E-06 

0.2467E-02 

19 

2 

650 

1 

0. 7000E+01 

0.1033E-05  -0.1401E-04 

0.1469E-04 

-0.2006E-05  -0.1191E-04 

0.2543E-02 

4 

2 

650 

2 

0. 7000E+01 

0.1012E-05  -0.1425E-04 

0.1373E-04 

0.1241E-05  -0.1220E-04 

0.4332E-02 

9 

6 

650 

3 

0. 7OO0E+O1 

0. 2941 E- 06  -0.5Z73E-06 

0.8596E-05 

0.9923E-0S  -0.1271E-06 

0.1644E-02 

19 

2 

700 

1 

0.7000E+01 

0.6955E-06  -0.9419E-05 

0.9878E-05 

0.2605E-06  -0.7991E-05 

0. 1 720E-02 

4 

2 

700 

2 

0.7000E+01 

0.6801E-06  -0.9574E-O5 

0.9236E05 

0.1087E-05  -0.B185E-05 

0.2923E-02 

9 

6 

700 

3 

0.7000E+01 

0.1982E-06  -0.3448E-06 

0.5774E-05 

0.6606E-05  -0.7555E-07 

0.1117E-02 

19 

2 

750 

1 

0.7000E+01 

0.4672E-06  -0.6325E-0S 

0.6654E-05 

0.6193E-06  -0.S363E-05 

0.116BE-02 

4 

2 

750 

2 

0.7000E+01 

0.4567E-06  -0.6432E-05 

0.6213E-05 

0.1130E-05  -0.5499E-05 

0.193 7E-02 

9 

6 

750 

3 

0.7000E+01 

0.1336E-06  -0.22D9E-06 

0.3895E-05 

0.4652E-05  -0.3BO0E-07 

0.7456E-03 

19 

2 

800 

1 

0.7000E+01 

0.3137E-06  -0.4231E-05 

0.4478E-05 

-0.7246E-06  -0.3585E-05 

0.7756E-03 

4 

2 

800 

2 

0.7000E+01 

0.3065E-06  -0.4315E-05 

0.4184E-05 

0.2644E-06  -0.3692E-05 

0.1Z92E-02 

9 

6 

800 

3 

0.7000E+01 

0.B951E-07  -O.I414E-06 

0.2627E-05 

D.2921E-05  -0.1999E-07 

0.5111E-03 

19 

2 

850 

1 

0. 7000E+01 

0.2100E-06  -0.2825E-05 

0.3066E-05 

-0.5323E-06  -0.2380E-05 

0.5Z77E-03 

5 

2 

850 

2 

0. 7DOOE+C1 

0.2060E-06  -0.2887E-05 

0.2848E-05 

0.3068E-06  -0.2460E-05 

0.8B24E-03 

9 

6 

850 

3 

0.7000E+01 

0.6117E-07  -0.8I6BE-07 

0.1777E-05 

0.2065E-05  0.3232E-08 

0.3280E-03 

19 

2 
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900  1  0.7000E+01  0. 1404E-06  -O.1871E-05  0.2080E-05  0.6761E-06  -0.1574E-05  0.3593E-03  4  2 
900  2  0.7000E+01  0.1373E-06  -0.1921E-05  0.1942E-05  0.1984E-06  -0.1629E-05  0.5722E-03  9  6 
900  3  0.7000E+01  0.4205E-07  -0.4948E-07  0.1215E-D5  0.1317E-05  0.9071E-08  0.21B4E-03  19  2 

950  1  0.7000E+01  0.9511E-07  -0.1274E-05  0.1383E-05  0.5525E-O6  -0.1082E-05  0.256SE-03  4  2 
950  2  0.7000E+01  0.9188E-07  -0.1277E-0S  0.1323E-05  0.2956E-06  -0.1078E-05  0.3819E-03  9  6 
950  3  0.7000E+01  0.2889E-C7  -0.2593E-07  0.8356E-06  0.7951E-06  0.1708E-07  0.1543E-03  19  2 

1000  1  0.7000E+01  0.6319E-07  -0.B242E-06  0.9688E-06  -0.2356E-O7  -0.6860E-06  0.1647E-03  4  2 
1000  2  Q-7000E+01  0.6096E-07  -0.8321E-06  0.9159E-06  -0.1191E-O6  -0.6950E-06  0.2371E-03  9  6 
1000  3  0.700DE+01  0.2079E-07  -0.8197E-08  0.5S13E-06  0.6961E-06  0.2343E-07  0.9B15E-C4  19  2 

1050  1  0.7000E+01  0.4159E-07  -0.5405E-06  0.6757E-06  0.5503E-06  -0.4S13E-06  0.1160E-03  9  5 
1050  2  0.7000E+01  0.4103E-07  -0.5479E-06  0.6350E-06  0.1244E-06  -0.4607E-06  0.1699E-03  9  6 
1050  3  0.7000E+01  0.1585E-07  0.177BE-D8  0.3996E-06  0.58S3E-06  0.2710E-07  0.7280E-04  19  2 

1100  1  0.7000E+01  0.2842E-07  -0.3462E-06  0.4685E-06  -0.1828E-05  -0.2810E-04  0.8325E-04  5  5 
1100  2  0.7000E+01  0.2697E-07  -0.5463E-06  0.4384E-06  0.2527E-06  -0.2809E-06  0.1123E-03  9  6 
1100  3  0.700QE+01  0.1169E-07  0.7144E-08  0.2805E-06  0.2262E-06  0.2601E-07  0.5247E-04  2  2 

1150  1  0.700DE+01  0.1974E-07  -0.2275E-06  0.3192E-06  0.2644E-06  -0.18B7E-D6  0.6944E-04  6  5 
1150  2  0.7000E+01  0.1888E-D7  -0.2043E-06  0.3232E-06  0.2243E-06  -0.1615E-06  0.8617E-04  9  6 
1150  3  0.7000E+01  0.1015E-07  0.1313E-07  0.2149E-04  0.8400E-07  O.3237E-07  0.3926E-04  2  6 

1200  1  0.7000E+01  0.1406E-07  -0.1219E-06  0.2604E-06  0.1162E-05  -0.9467E-07  0.4130E-04  5  4 
1200  2  0.7000E+01  0.1312E-07  -0.1293E-06  0.250JE-06  -0.1886E-06  -0.B893E-07  0.4902E-04  9  6 
1200  3  0.700CE+01  0.8639E-08  0.1902E-07  0.I601E-06  0.1621E-06  0.3320E-07  0.3223E-04  19  2 

1250  1  0.7000E*01  0.1027E-07  -0.7521E-07  0.1738E-06  -0.1590E-05  -0.6239E-07  0.4142E-04  5  5 
1250  2  0.7000E*01  0.1004E-07  -0.7810E-07  0.1693E-06  0.6888E-07  -0.6451E-07  0.3528E-04  7  2 
1250  3  D.7000E+01  0.B151E-08  0.1384E-07  0.1301E-06  0.1586E-06  0.2582E-07  0.2693E-D4  19  2 

1300  1  0.7D00E+01  0.9433E-08  -D.4188E-07  0.1507E-06  0.5107E-06  -0.7873E-OB  0.3077E-04  8  2 
1300  2  0.7000E>01  0.9506E-08  -0.3784E-07  0. 1512E-06  -0.1131E-06  -0.1132E-07  0.J496E-04  10  3 
1300  3  0.700QE*01  0.7731E-08  0.2462E-07  0.9242E-07  0.2984E-0A  0.3020E-07  0.2319E-04  4  7 

1350  1  0.7000E*01  0.9859E-08  0.1512E-07  0.1479E-06  0.1474E-06  0.3128E-07  0.3089E-04  7  5 
1350  2  0.7000E*01  0.9435E-08  -0.3337E-08  0.1068E-06  0.5797E-06  0.3361E-O8  0.4177E-04  7  2 
1350  3  0.7000E+01  0.7607E-08  0.1944E-07  0.7900E-07  0.1042E-0B  0.3150E-07  0.2102E-04  2  8 

1400  1  0.7000E+01  0.9C41E-08  0.1043E-07  D.1006E-06  0.5013E-Q6  0.2023E-07  0.3104E-04  2  5 
1400  2  0.7000E+01  0.B073E-OB  Q.2923E-08  0.8865E-07  0.2529E-06  0.5704E-08  D.2488E-Q4  3  6 
1400  3  0.7000E+01  0.6931E-08  0.1893E-07  0.6431E-07  0.1009E-06  0.2907E-07  0.2270E-04  2  10 

1450  1  0.7000E>01  0.8447E-08  0.46S7E-07  0.1D33E-06  0.5013E-06  0.6216E-D7  0.3772E-O4  3  5 
1450  2  0.7000E+01  0.8176E-08  0.3720E-07  0.9562E-07  -0.5765E-07  0.4200E-07  0.2436E-04  4  2 
1450  3  0.7000E+01  0.7915E-08  O.Z451E-07  0.6961E-O7  O.2213E-06  0.3547E-07  0.2424E-04  8  5 

HOD  1  0.7000E+01  0.7321E-08  0.4895E-07  0.8896E-O7  -0.1184E-05  0.5608E-07  0.2981E-04  8  5 
1500  2  0.7000E+01  0.77D9E-06  0.2882E-07  0.7429E-07  0.1289E-06  0.2999E-07  0.2313E-04  10  6 
1500  3  0.7000E+01  0.7281E-D6  0.2648E-07  0.7670E-07  -0.4503E-07  0.3543E-07  0.2527E-04  15  5 

1550  1  0.7000E+01  0.8603E-D8  0.3134E-07  0.6653E-07  -0.7527E-06  0.3107E-07  0.2960E-04  6  3 
1550  2  0.7000E+01  O.B475E-OB  0.4115E-07  0.7538E-07  -0.104ZE-06  0.4130E-07  0.3993E-04  5  3 
1550  3  D.7000E+01  0.7051E-08  D.2256E-07  0.62Z3E-07  0.1048E-06  0.3058E-07  0.2552E-04  2  10 

1600  1  D.7000E+01  0.8325E-O8  0.4601E-07  0.7271E-07  -0.42Z6E-06  0.4599E-07  0.32B7E-04  6  5 
1600  2  0.700CE>01  0.7300E-08  0.3777E-O7  0.6644E-07  0.3132E-07  0.391SE-07  0.3650E-04  8  3 
1600  3  D.7000E*01  0.7113E-08  0.2339E-07  0.5933E-07  0.4150E-07  0.3181E-07  0.2629E-04  11  2 

1650  1  0.70Q0E*01  0.7012E-08  0.3946E-07  0.7240E-07  0.1224E-05  0.3937E-07  0.3112E-04  2  2 
1650  2  0.7000E»01  0.7539E-08  0.3965E-07  0.6758E-07  -0.6804E-07  0.4127E-07  0.2560E-04  9  2 
1650  3  0.7000E>01  0.6605E-08  0.1961E-D7  O.4553E-07  0.9273E-07  0.2476E-07  0.2627E-04  2  8 

1700  1  0.70 DOE >01  0.6995E-08  0.3864E-07  O.7143E-07  0.1216E-O5  0.3850E-07  0.3112E-04  2  2 
1700  2  0.7000E+01  0.7574E-08  0.3987E-07  0.6768E-07  -0.5282E-07  0.4166E-07  0.2563E-04  9  2 
1700  3  0.7000E+01  0.6552E-08  0.2147E-07  0.5288E-07  0.9150E-07  0.2714E-07  0.2148E-O4  2  8 
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1750 

1 

0.7000E+01 

0.6995E-08 

0.3864E-07 

0.7143E-07 

0.12166-05 

0.3850E-07 

0.3112E-04 

2 

2 

1750 

2 

0.7000E+01 

0.7574E-08 

0.3987E-07 

0.6768E-07 

-0.5282E-07 

0.4166E-07 

0.2563E-04 

9 

2 

1750 

3 

0.7000E+01 

0.6552E-08 

0.2147E-07 

0.528BE-07 

0.9152E-07 

0.2714E-07 

0.2148E-04 

2 

8 

1800 

1 

0.70006+01 

O.6995E-O0 

0.3864E-07 

0.7143E-07 

0.1216E-05 

0.3850E-07 

0.3112E-04 

2 

2 

1800 

2 

0.7000E+01 

0.75746-08 

0.3987E-07 

0.6768E-07 

-0.S282E-07 

0.4166E-07 

0.25636-04 

9 

2 

1800 

3 

C.7000E+01 

0.6552E-08 

0.2147E-07 

0.52B8E-07 

0.9152E-07 

0.27146-07 

0.2148E-04 

2 

a 

1850 

1 

0.7000E+01 

0.69956-08 

0.38646-07 

0.7143E-07 

0.1216E-05 

0.38506-07 

0.31 12E-04 

2 

2 

1850 

2 

0.7000E+01 

0.7574E-08 

0.3987E-O7 

0.6768E-07 

-0. 52826-07 

0.4166E-07 

0.2563E-04 

9 

2 

1850 

3 

0.7000E+01 

0.6552E-O8 

0.2147E-O7 

0.5288E-07 

0.9152E-07 

0.2714E-07 

D.2148E-04 

2 

8 

1900 

1 

0. 7000E+01 

0.6995E-O8 

0.3B64E-07 

0.7143E-07 

0.12166-05 

0.3850E-07 

Q.3112E-04 

2 

2 

1900 

2 

0.7000E+01 

0.7574E-08 

0.398 7E-07 

0. 67686-07 

-0.5282E-07 

0.4166E-07 

0.2563E-04 

9 

2 

1900 

3 

0.7000E+01 

0.6552E-08 

0.2147E-07 

0.5288E-07 

0.9152E-07 

0.2714E-07 

0.2148E-04 

2 

8 

1950 

1 

G.7CC0E+01 

0.6995E-08 

0.3364E-07 

0.7143E-07 

0.1216E-GS 

0.3B50E-07 

0.31 12E-04 

2 

2 

1950 

2 

0.7000E+01 

O.7574E-08 

0.3987E-07 

0.676BE-07 

-0.5282E-07 

0.4166E-07 

O.2563E-04 

9 

2 

1950 

3 

0. 700DE+01 

O.6552E-08 

0.2147E-07 

0.5288E-07 

0.9152E-07 

0.2714E-07 

0.21486-04 

2 

8 

2000 

1 

0.70006+01 

0.6995E-OS 

0.3864E-07 

0.7143E-07 

O.1216E-05 

0.3850E-07 

0.31 12E-04 

2 

2 

2000 

2 

0.7000E+01 

0.7574E-08 

0.3987E-07 

0.6768E-07 

-O.5Z82E-07 

O.4166E-07 

0.2563E-04 

9 

2 

2000 

3 

0.7DOGE+Q1 

0.6552E-08 

0.2147E-07 

0.5286E-07 

O.9152E-07 

0.2714E-07 

0.2148E-04 

2 

8 

2050 

1 

0.7000E+01 

0.6995E-0B 

0.3864E-07 

0.7143E-07 

0.12166-05 

0.38S0E-07 

0.3112E-04 

2 

2 

2050 

2 

0.7000E+01 

0.7574E-08 

0.39B7E-07 

0.67686-07 

-O.5262E-07 

0. 41666-07 

0.2563E-04 

9 

2 

2050 

3 

0.7000E+01 

0.6552E-08 

0.2147E-07 

0.5288E-07 

0.9152E-07 

0.2714E-07 

0.2148E-04 

2 

8 

2100 

1 

0.7000E+01 

0. 6995 E -08 

0.3B64E-07 

0.7143E-07 

0. 12166-05 

0.3850E-07 

0.31126-04 

2 

2 

2100 

2 

0.7000E+01 

0.7574E-08 

0.3987E-07 

0.6768E-07 

-0.5282E-07 

0.4166E-07 

0.25636-04 

9 

2 

2100 

3 

0.7000E+01 

0.65S2E-06 

0.2147E-07 

D. 52886-07 

0.9152E-07 

0.2714E-07 

0.2I48E-04 

2 

8 

2150 

1 

0.7000E+01 

0.6995E-08 

0.3B64E-07 

0.7143E-07 

0.1216E-05 

0.3S50E-07 

0.31126-04 

2 

2 

2150 

2 

0.7000E+01 

0.7574E-0B 

0.3987E-07 

0.6768E-07 

-0.5282E-07 

0.4166E-07 

0.2563E-04 

9 

2 

2150 

3 

0.7000E+01 

0.6552E-08 

0.2147E-O7 

0.5288E-07 

0.9152E-07 

0.2714E-07 

0.21486-04 

2 

8 

2200 

1 

0.7000E+01 

0.6995E-08 

0.3B64E-07 

0.7143E-07 

0.12166-05 

0.385 0E- 07 

0.3112E-04 

2 

2 

2200 

2 

0.7000E+01 

0.7574E-08 

0.3987E-07 

0.6768E-07 

-0.5282E-07 

0.4166E-07 

0.2563E-04 

9 

2 

2200 

3 

0.7000E+01 

0.6552E-08 

0.2147E-07 

0.52886-07 

0.91 52E-07 

0.2714E-07 

0.2148E-04 

2 

B 

2250 

1 

0.7000E+01 

0.6995E-08 

0.3864E-07 

0.7143E-07 

0.1216E-05 

0.3850E-07 

0.311 2E- 04 

2 

2 

2250 

2 

0.7000E+01 

0.7574E-08 

0.3987E-07 

0.6768E-07 

-D.5282E-07 

0.4166E-07 

0.2563E-04 

9 

2 

2250 

3 

D.7000E+01 

0.655 2E-08 

0.2147E-07 

0.5288E-07 

0.9152E-07 

0.2714E-07 

0.2148E-04 

2 

8 

2300 

1 

0.7000E+01 

0.6995E-08 

0.3864E-07 

0.7143E-07 

0.1216E-05 

0.3850E-07 

0.3112E-04 

2 

2 

2300 

2 

0.7000E+01 

0.7574E-08 

0.3987E-07 

0.6768E-07 

-G.5282E-07 

0.41666-07 

0.2563E-04 

9 

2 

2300 

3 

0.7000E+01 

0.6552E-08 

0.2147E-07 

0.5288E-07 

0. 91 52 E- 07 

0.2714E-07 

0.21486-04 

2 

8 

2350 

1 

0.7000E+01 

0.6995E-08 

0.3864E-07 

0.7143E-07 

D.1216E-D5 

0.38506-07 

0-3112E-04 

2 

2 

2350 

2 

0.7000E+Q1 

0.7574E-08 

0.3987E-07 

0.676BE-07 

-0.5282E-07 

0.41666-07 

0.2563E-04 

9 

2 

2350 

3 

0.7000E+01 

0.6552E-08 

0.2147E-07 

0.5288E-07 

0.9152E-07 

0.2714E-07 

0.2148E-04 

2 

8 

2400 

1 

0.7000E+01 

0.6995E-08 

0.3864E-07 

0.7143E-07 

0.12166-05 

0.385 OE-07 

0.3112E-04 

2 

2 

2400 

2 

0.7000E+01 

0.7574E-08 

0.39S7E-07 

0.6768E-07 

-0.5282E-07 

0.41666-07 

0.2563E-04 

9 

2 

2400 

3 

0.7000E+01 

0.6552E-08 

0.2147E-07 

0.5288E-C7 

0.9152E-07 

0.2714E-07 

0. 21486-04 

2 

8 

2450 

1 

0.7000E+01 

0.6995E-08 

0.3864E-07 

0.7143E-07 

0.1216E-05 

0.385 OE-07 

0.3112E-04 

2 

2 

2450 

2 

0.7000E+01 

0.7574E-08 

0.3987E-07 

0.6768E-07 

-0.52826-07 

0.4I66E-07 

0.25636-04 

9 

2 

2450 

3 

0.7000E+01 

0.6552E-08 

0.2147E-07 

0.52B8E-07 

0.9152E-07 

0.2714E-07 

0.2148E-04 

2 

8 

2500 

1 

0.7000E+01 

0.6995E-08 

0.3864E-07 

0.7143E-07 

0. 1216E-05 

0.3850E-07 

0. 31126-04 

2 

2 

2500 

2 

0.70Q0E+01 

0.7574E-08 

0.3987E-07 

0.6768E-07 

-0.5282E-07 

0.4166E-07 

0.25636-04 

9 

2 

2500 

3 

0.700DE+01 

0.65526-08 

0.2147E-07 

0.5288E-07 

0.9152E-07 

0.2714E-07 

0.2148E-04 

2 

8 
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BLOCK  1  VARIABLES  AT  K 

=  2 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

2 

0.1011E+02 

0.53606+03 

0.7731E+00 

0.1500E+02 

0. 1000E+01 

-0.9609E-05 

0.2500E+00 

4 

0. 1011E+02 

0.53606+03 

0.7728E+00 

0. 1501E+02 

0.1000E+01 

0.1537E-04 

0.7500E+00 

6 

0. 1014E+02 

0. 53646+03 

0.7701E+00 

0.1501E+02 

0.1000E+01 

0.4184E-03 

0.1250E+01 

8 

0. 1030E+02 

0.5390E+03 

0.7526E+00 

0. 1500E+02 

0.1000E+01 

0.3360E-02 

0.1750E+01 

10 

0. 1093E+02 

0.5482E+03 

0. 6859 E +00 

0.1498E+02 

0.9999E+00 

0.1242E-01 

0.2250E+01 

12 

0. 1197E+02 

0.5627E+03 

0.5770E+00 

0.150DE+02 

0.99986+00 

0.2040E-01 

0.2750E+01 

14 

0.1263E+02 

0.571 4E+03 

O.StHBE+00 

0.1499E+02 

0.9997E+00 

0.2427E-01 

0.3250E+01 

BLOCK  1  VARIABLES  AT  K 

=  4 

1 7  ERA  HOW  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

2 

0.1D11E+OZ 

0.5360E+03 

0.7731E+00 

0.150DE+02 

0.1000E+01 

-0.2441E-04 

0.2500E+00 

4 

0-101 1E+02 

0.5360E+03 

0.7730E+00 

0.1S01E+02 

0.1000E+01 

0.3989E-04 

0.7500E+00 

6 

0.10136+02 

0.5363E+03 

0.7711E+00 

0.1501E+02 

0.10006+01 

0. 1163E-G2 

0.1250E+01 

8 

0.1026E+02 

0.5383E+03 

0.7571E+00 

0. 150DE+02 

0.9999E+00 

0.1035E-01 

0.1750E+01 

10 

0.1086E+02 

0.5472E+03 

0.6918E+00 

0.1495E+02 

0. 99896+ 00 

0.4626E-01 

0.22506+01 

12 

0.1197E+02 

0.5627E+03 

0.5760E+00 

0.1499E+02 

0.99786+00 

0.6672E-01 

0.2750E+01 

14 

0.1264E+02 

0.5715E+03 

0.4992E+00 

0.1499E+O2 

0.9973E+00 

0.7310E-01 

0.3250E+01 

BLOCK  2  VARIABLES  AT  K 

=  2 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

2 

0.1011E+02 

0.5360E+03 

0.7732E+00 

0.1501E+02 

0.1000E+01 

-0.331SE-04 

0.2500E+00 

4 

0.1D11E+02 

0.5360E+03 

0.7733E+00 

0.1501E+02 

0. 1000E+01 

0.2101E-04 

0.7500E+00 

6 

0.1011E+02 

0.5361E+03 

0.7731E+00 

0.1501E+02 

0.1000E+01 

0.1329E-02 

0.1250E+01 

8 

0.1017E+02 

0.5370E+03 

0.76696+00 

0.1501E+02 

0.9999E+00 

0. 1477E-01 

0.1750E+01 

10 

0. 1071E+02 

0.5451E+03 

Q.7043E+00 

0.1492E+O2 

0.9966E+00 

0.8287E-01 

0.2250E+01 

12 

0. 1198E+02 

0.5629E+0J 

0.5741E+00 

0. 149BE+02 

0.9934E+0Q 

0.I146E+0D 

0.2750E+01 

14 

0.12676+02 

0.5719E+03 

0.4961 E+00 

0.1498E+02 

0.9924E+00 

0.1227E+00 

0.3250E+01 

BLOCK  2  VARIABLES  AT  K 

=  4 

ITERATION  HUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

2 

0. 1011E+02 

0. 53606*03 

0.7733 E+00 

0. 1501E+02 

0.1000E+01 

-0.2957E-04 

0.2500E+00 

4 

0.1011E+02 

0.53606+03 

0.77366+00 

0.1501E+02 

0,100 OE+OI 

-0.2110E-04 

0.7500E+00 

6 

0. 1009E+02 

0.5358E+03 

0.7755E+00 

0. 1502E+02 

0. 10C0E+O1 

0.7721E-03 

0.12S0E+01 

8 

0. 1003E+02 

0.53486+0(3 

0.7831E+00 

0.1504E+02 

0.9999E+00 

0.13S6E-01 

0.1750E+01 

10 

0.1047E+02 

0.54186+03 

0.72236+00 

0. 1482E+02 

0.9922E+00 

0. I24SE+00 

0.2250E+01 

12 

0. 1202E+02 

0.56366+03 

0.5702E+00 

0. 1499E+02 

0.9863E+00 

0. 1650E+00 

0.2750E+01 

14 

0. 1271E+02 

0.57266+03 

0.4914E+00 

0.1499E+02 

0.9850E+00 

0.1 725 E+00 

0.3250E+01 

BLOCK  3  VARIABLES  AT  K 

=  2 

ITERATION  NUMBER; 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

1 

0.1263E+02 

0.5714E+03 

0.5008E+00 

D.1499E+02 

0.9997E+00 

0.2427E-01 

0.325 0E+D1 

3 

0.1310E+02 

0.57746+03 

0.4437E+00 

0.1499E+02 

0.9997E+00 

0.2543E-01 

0.3750E+01 

5 

0.1343E+02 

0.5815E+03 

0.4003E+00 

0.1499E+02 

0.9997E+00 

0.2533E-01 

0.425 0E+01 

7 

0.1367E+02 

0.5844E+03 

0.3662E+00 

0.1499E+02 

0.99971+00 

0.2440E-01 

0.475 0E+01 

9 

0. 1384E+C2 

0.5865E+03 

0.3396E+00 

0.1499E+02 

0.9997E+00 

0.2239E-01 

0.525DE+01 

11 

0.1397E+02 

0.5880E+03 

0.3198E+00 

0.1499E+02 

0.9998E+00 

0.1883E-01 

0.575 OE+OI 

13 

0.1405E+02 

0.5890E+03 

0.3066E+00 

0.1499E+02 

0.9999E+00 

0.1296E-01 

0.6250E+01 

15 

0.1409E+02 

0.5895E+03 

0.2992E+00 

0.1499E+02 

0. 1000E+01 

0.7631E-02 

0.6750E+01 

17 

0.1411E+02 

0.589GE+03 

0.2953E+00 

0.1499E+02 

0. 1000E+01 

0.4013E-02 

0.7250E+01 

19 

0.1412E+02 

0.5898E+D3 

C.2932E+00 

0.1499E+02 

0.1000E+01 

0.1944E-02 

0.775 OE+OI 

r 

0. 10006+00 
0.1000E+00 
0. 1000E+00 
o.icooe+oo 

0.1062E+00 

0.11B7E+00 

0.1312E+00 


T 

0.3000E+00 

O.MOOE+OO 

0.30006+00 

0.30006+00 

0.3187E+00 

0.3562E+00 

0.3937E+00 


Y 

0.500QE+00 
0.5000E+00 
0.5000E+00 
0.500QE+00 
D.5312E+00 
0.5937E+00 
0. 6562 E +00 


Y 

O.TOOOE+OO 

0.7000E+00 

0.7000E+00 

D.7000E+00 

0.7437E+00 

D.B312E+00 

0.9187E+00 


Y 

0.1312E+00 
0. 1437E+00 
0.1562E+00 
0.1687E+00 
O.1812E+D0 
0.1937E+00 
0.2000E+00 
0.2000E+00 
0.2000E+00 
0.2000E+00 
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Listing  £-9.  Concluded 


6L0CK  3  VARIABLES  AT  K 

=  4 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

1 

0.1264E+C2 

0.5715E*03 

0.4992E+00 

0. 14996+02 

0.99736+00 

0.7310E-01 

0.3250E+01 

3 

0.1311E+C2 

0.5776E+03 

0.4420E+00 

0. 1499E+02 

0.997ZE+00 

0.7453E-01 

0.3750E+01 

5 

0.1344E+02 

0.5B16E+03 

0.3986E+00 

0.1499E+0Z 

0.9973E+00 

0.7384E-01 

0.4250E+01 

7 

0.1368E+02 

0.S846E+03 

0.3644E*00 

0. 1499E+02 

0.9975E+00 

0.71196-01 

0.4750E+01 

9 

0.1386E+G2 

0.5867E+03 

0.3375E+00 

0. 1500E+02 

0.9979E+00 

0.6523E-01 

0.52S0E+01 

11 

0.1399E+02 

0.5883E+03 

0.3172E+00 

0. 15006+02 

0.9985E+00 

0.5397E-01 

0.5750E+01 

13 

0.1407E+D2 

0.5B93E+03 

0.304ZE+00 

0. 1500E+02 

0.9994E+00 

0.34896-01 

0.6250E+01 

IS 

0.1410E+02 

0-58976+03 

0.2980E+00 

0. 1500E+02 

0.99986+00 

0.1936E-01 

0.6750E+01 

17 

0.141ZE+02 

0.5899E+03 

0.2951E+00 

0.15  00E+02 

0.100QE+Q1 

0.9801E-02 

0.7250E+01 

19 

0. 1412E+02 

0.58996+03 

0.Z937E+00 

0. 1500E+0Z 

0.1000E+01 

0.47066-02 

0.7750E+01 

8L0CK  3  VARIABLES  AT  K 

=  6 

ITERATION  HUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

1 

0.1267E+02 

0.5719E+Q3 

0.49616*00 

0. 1498E+02 

0.9924E+00 

0.1227E+00 

0.32S0E+01 

3 

0. 1314E+02 

0.57796+03 

0.43906+00 

0. 1499E+02 

0.9923E+00 

0.12396+00 

0.3750E+01 

5 

0. 1346E+02 

0.58196+03 

0.39576+00 

0.1500E+DZ 

0.9925E+00 

D.1224E+QQ 

0.4250E+01 

7 

0. 1370E+02 

0.5849E+03 

0.36116+00 

0. 1500E+02 

0.9930E+00 

0.1184E+00 

0.47506+01 

9 

0. 1389E+02 

0.5871E+03 

0.3330E+00 

0. 1500E+02 

0.9940E+00 

0.1095E+00 

0.5250E+01 

11 

0. 1403E+02 

0.5888E+03 

0.3108E+00 

0.15006+02 

0.9959E+00 

0.90866-01 

0.5750E+0! 

13 

0.1411E+02 

0.589SE+03 

0.2975E+00 

0. 1501E+02 

0.9985E+00 

0.54046-01 

0.62506+01 

15 

0. 1413E+02 

0.5900E+03 

0.2939E+00 

0.1500E+02 

0.99966+00 

0.2722E-01 

0.67506+01 

17 

0.  1413E+02 

0.5900E+03 

0.2929E+00 

0.15006+02 

0.99996+00 

0.1277E-01 

0.72506+01 

19 

01 1413E+02 

0.5901E*03 

0.2925E+00 

0.15006+02 

0.1000E+01 

0.5931E-02 

0.77506+01 

BLOCK  3  VARIABLES  AT  K 

-  8 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACK  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

1 

0. 1271E+02 

0.5726E*03 

0.4914E+0D 

0.1499E+02 

0.9850E+00 

0.1725E+00 

0.32506+01 

3 

0.13176+02 

0.57B5E*03 

0.4334E+00 

0.14996+02 

0.9849E+00 

0.1730E+00 

0.3750E+01 

S 

0.13506+02 

0.5825E*03 

0.3892E+00 

0.1498E+02 

0.9852E+00 

0.1714E+00 

0.42506+01 

7 

0.I374E+02 

0.5855E*03 

0.3531E+00 

0.1497E+02 

0.9858E+00 

0.1676E+00 

0.4750E+01 

9 

0.1393E+02 

0.5879£*03 

0.3222E+0D 

0. 14976+02 

0.9B74E+00 

0.158SE+00 

0.52506+01 

11 

0.14096+02 

0.58988*03 

0.2955E+00 

0.1497E+02 

0.9908E+00 

0.1350E+00 

0.57506+01 

13 

0.14196+02 

0.5909E+03 

0.2814E+0D 

0. 14996+02 

0.99776+00 

0.6799E-01 

0.6250E+01 

15 

0.  KITE +02 

0.5907E*03 

0.2B28E+00 

0.1497E+02 

0.9996E+00 

0.2932E-01 

0.6750E+01 

17 

0. 1415E+02 

0.5905E*03 

0.2851E+00 

0.14976+02 

0.9999E+00 

0.12276-01 

0.72506+01 

19 

0.1414E+02 

0.59056+03 

0.28686+00 

0.1497E+02 

0.1000E+01 

0.5183E-02 

0.7750E+01 

BLOCK  3  VARIABLES  AT  K 

-  10 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

NACH  NUMBER 

TOTAL  PRESS 

U- COSINE 

V-COSINE 

X 

1 

0.1277E+02 

0.5739E*03 

0.4741E+00 

0.1489E+02 

0.97436+00 

0.2253E+00 

0.3250E+01 

3 

0.1322E+02 

0.5796E+03 

0.4190E+00 

0.1492E+02 

0.97466+00 

0.2238E+00 

0.375  0E+01 

5 

0. 1354E+02 

0.5834E*03 

0.3767E+00 

0.1493E+02 

0.9751E+00 

0.2Z19E+00 

0.4250E+01 

7 

0.137EE+02 

0.5B64E*03 

0.3415E+00 

0, 1493E+02 

0.97566+00 

Q.2I95E+00 

0.47506+01 

9 

0.13986+02 

0.5888E*03 

0.3092E+00 

0.1494E+02 

0.97686+00 

0.2141E+00 

0.5250E+01 

11 

0. 1418E+02 

0.5912E*03 

0.2739E+00 

0.1493E+02 

0.97966+00 

0.2009E+00 

0.5750E+01 

13 

0.14316*02 

0.59Z7E*03 

0.2614E+00 

0. 1500E+02 

0.99816+00 

0.621 IE-01 

0.62506+01 

IS 

0.1420E*02 

0.5914E*03 

0.2766E+00 

0. 1498E+02 

0.99996+00 

0.1253E-01 

0.6750E+01 

17 

0. 14166*02 

0.5909E*03 

0.2824E+00 

0.14966+02 

0.1000E+01 

0.2375E-02 

0.7250E+01 

19 

0.1414E*02 

0.59088*03 

0.2848E+00 

0.14966+02 

0.10006+01 

0.85526-03 

0.77506+01 

Y 

0.3937E+00 

0.4312E+00 

0.4687E+C0 

0.5062E+G0 

0.5437E+C0 

0.5812E+C0 

0.60C0E+00 

0.6000E+00 

0.6000E+00 

0.6000E+00 


r 

0.6562E+00 

0.71B7E+00 

0.7812E+00 

0.8437E+00 

0.9062E+00 

D.9687E+00 

O.IGOOE+Ol 

0.1000E+01 

0.1000E+01 

0.1000E+01 


Y 

0.91B7E+00 
0.1006E+01 
0.1094E+01 
0.11S1E*01 
C.1269E+01 
0.1356E+01 
0.1400E+01 
0.1400E+01 
0.1400E+01 
0. 1400E+Q1 


Y 

o.  naiE«oi 
0. 1294E+01 
0.1406E+01 
0.15196+01 
0.1631E+01 
0.1744E+01 
0.1800E+01 

c.iaooE+oi 

0.1800E+01 

0.1B00E+01 
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Listing  £-10.  Grid  and  Initial  Condition  Generator  (Refined  Block) 


1 

1. 

PROGRAM  ICFXLE 

2 

2. 

PARAMETER ( JD=33, KD= 1 1 > 

3 

3. 

DIMENSION  R(JD,KD),RU{JD,KD>,RV< JD,KD),E(JD,KD) 

4 

4. 

DIMENSION  X(JD,KO)rT(JD,KD) 

5 

5. 

DIMENSION  RA(29,13),RUA(29,13)>RVA(29,13),EA( 29,13) 

6 

6. 

DIMENSION  XA<29,13),YA(29,13) 

7 

7. 

DATA  G/1.4/ 

8 

8. 

GH1=G-1. 

9 

9. 

DELX=B./3Z 

10 

C 

FORM  THE  >X>  GRID  ARRAY 

11 

10. 

DO  1  J=1 , JD 

12 

11. 

DO  1  K*=1,KD 

13 

12. 

IFfJ.EQ.1J  THEN 

14 

13. 

X(J,K>»0. 

15 

14. 

ELSE 

16 

15. 

X(J,K)=X(J- 1 , K3+CELX 

17 

16. 

END  IF 

IB 

17.  1 

CONTINUE 

19 

C 

FORM  THE  'Y'  GRID  ARRAYS 

20 

18. 

DO  2  J=1,JD 

21 

19. 

IF(X(J,KD).LE.2.)  YO=1. 

22 

20. 

IF(X(J,KD>.GT,6.)  YQ=2. 

23 

21. 

IF((X(JiKD).GT.2.).AND.(X(JjED).LE.6.))  then 

24 

22. 

YO=1 .+<X(J,KD)-2. >*0.25 

25 

23. 

END  IF 

26 

24. 

DELY-rO/<XD-U 

27 

25. 

T<J,t J=0.0 

28 

26. 

00  2  X»2,KD 

29 

27. 

Y(J,K)-Y<JrK-1 )»DELT 

30 

28.  2 

CONTINUE 

31 

C 

FORM  THE  ARRAYS  OF  NON-DIMENSIONAl  CONSERVATION  VARIABLES 

32 

C 

CONSISTENT  WITH  A  FREE-STREAM  MACH  NUMBER  OF  0.29 

33 

29. 

FMACK=0.29 

34 

30. 

FACT=<I.».2*FHACH**2| 

35 

31. 

PBAR=FACT**(-3.5>/G 

36 

32. 

DO  1000  J=1,JD 

37 

33. 

DO  2000  K°1,KD 

38 

34. 

Hf  J,lfJ=FACT'*C-2.5> 

39 

35. 

RU{ J,K}=R(J,K)*FMACH*SGRT(1 ./FACT ) 

40 

36. 

RV< J,K}*0. 

41 

37. 

E(  J,K)=PBAR/GM1*.5*CRU(J,K>**2)/R(  J,IC} 

42 

38.  2000  CONI [NUE 

43 

39.  1000  CONTINUE 

44 

40. 

DO  10  K=S,11 

45 

41. 

KA=2*(K-5)»1 

46 

42. 

00  ID  J=1,15 

47 

43. 

JA=2*(J-1)*1 

48 

44. 

XA(JA,EA)=X(J.K) 

49 

45. 

YA(JArXA)=Y(J,K) 

50 

46. 

RA(JA,KA)>R(J,(C) 

51 

47. 

RUA{JA,KA>=RU(J,K) 

52 

48. 

RVA(JA,KA)«RV(J,K) 

53 

49.  10 

EA(JA, KA)=E(J,K) 

54 

50. 

DO  20  K=1 , 13.2 

55 

51. 

DO  20  J =2,28,2 

56 

52. 

XA<J,X)=.5*£XA<J-1,K>+XA(J*1,K)> 

S7 

53. 

YA<J,K)=.S*(YA£J-1,K>+YA(J+1,K» 

58 

54. 

RA( J,K)».5*(RA( J-1 ,K)+RA( J+1,K>) 

59 

55. 

RUAf J ,K)=.5*(HUA( J- 1 ,K)+RUA{ J+1  ,K)) 

60 

56. 

RVACJ,K)=.5*(AVAC«J"1,K)+RVA(J+1 ,K)> 

61 

57.  20 

EAfJ,X)=.5*(EA(J-1,K)+EA(J+1,IO> 

62 

58. 

00  30  K=2,12,2 

63 

59. 

DO  30  J=1,29 

64 

60. 

XACJ,K>=.5*CXA(J,K-1)+XACJ,K+1)> 

65 

61. 

YA(J,K>=.5*CYA(J,K-1)+YA(J,K+1)> 

66 

62. 

RAC J,K)=.5*(RA( J,K-1)+RA(J,K+1)) 

67 

63. 

RUAC J,K)=.5*(RUA( J,K-1)+RUA( JrE+1>) 

68 

64. 

RVA(J,K)=.5*f RVAC J,K-1 )*RVAI JrK+1 )) 

69 

65.  30 

EA(JJK)».5*£EA(J,K-1)+EACJ,K4l)) 
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Listing  E-10.  Concluded 


70  66.  MC1-0 

71  67.  UR[1E(20)NC1,G 

68.  WR[TE{20)15,6 

69.  WRITE<20)<(  X(J,K),J-  1,15),K-1,  6), 

*  <(  YCJ.IO.Js  1,15>,K=1,  6) 

70.  URtTE(2D)((  BCJ.IO.J-  1,1S),IC=1,  6), 

*  (<RU(J,K)j J=  1,15),K=1,  6), 

*  «RV<J,K),J=  1,1S),K=1f  6J, 

*  ((  E( J,K) j J9  1,15), K-1,  6) 

71.  UR1TE(20>29, 13 

72.  HRITEC20}XA,YA 

73.  URITEC20]RA,RUA,RVA,EA 

74.  URITE[20)20,11 

75.  VIRITE{20Ht  XtJ.K), JiH.JH.W.III, 

*  <t  Y<J,IC>.J=1*.33),K=1,11) 

76.  URITE(20)<(  R< J,K) , J=14 ,33>,K=1 , 11 ), 

*  4CRU<J,IC),J«14,33),K=1,11), 

*  ICRV<J,K),J-14,33),K-1,11), 

*  C(  E(J,K),J=14,33),IC=1,11) 

77.  STOP 

78.  EHD 
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Listing  E-ll.  Execution  and  Input  File  (Refined  Block) 


//A05569X  JOB  CSVT.ATTO 0000,00,78904912), 'DOM  TOGO  EL2  CFO1, 
//  CLASS=K,TIME=C,5S.USE*=A05569,PAS5WORO=XXXXXXXX,MSGCLASS=Z> 
//  H5GLEVEL=1 ,PRTY=B, NOT  I FY=A05569 
//* 

/•ROUTE  PRINT  RHTO 

/•JOBPARM  ROCM-5  2ND  FLOOR  00  BLOG  1099 

//* 

//  EXEC  CRAY 

CRSUBHIT  F(OSJOB)  NOT  I FY ( A05569 >  DEST(RMTO)  PR1NTC3)  HOLD 
//OSJOB  DO  * 

JOS , J  M= A  05 569Y ,T=150,MFL. 

ACCOUNT , A  C=7B9049 1 0 , U5=A05569 . 

FETCH, DN = CODE , TE  XT= 1 D  SN-A05569 .  BARC ( B ARC2D ) , D I SP=S  HR 1 . 
CFT,[=C0OE,L=0. 

ACCESS, DN=BNCNLIB, PD«=BHCNLIB, 10 =BNCKMRK,OUN=SYSTEN. 

ACCESS, DN=FT02,PDN»1CCASE4. 

LDR.L1B-BNCHLIB. 

*SAVE,DN=FI04,P0N=RSCASE4. 

D I SPOSE ,DN=FT04,DC=ST,D F=T« , TEXT* ' 

' DSN=A05569. TRCASE4 . REST ,01 SP=  t , CATLG) , • * 

'UN[T=01 SK,SPACE-(CYL,<35),RLSE3, ■ * 

1 DCB=(RECFH=F, LRECL=4096,BLKSl ZE=4096) ' . 

/EOF 

SINPUTS 

NHAX=2500,  NP=2500, 

PREF-15.0,  TREFR=600,, 

IFXPRT-1,  NBL0CK=3, 

0182-0,00,  DIS4-0.30, 

OTCAP-  7.0,  PCOHAX«10.0, 

NSPRT=50,  IAX1SY-0,  ST0PL2-1 .E-20, 

% 

AS LOCK  :#1 
NPSEC=1 , 

INVISCd  3=0,  INVISC<23=0, 

1 

BPRTSEG 

JKLPI  (1 ,1,13=2,14,2,  JXLPH1, 2,11=2,4, 2,  JPORO(1)=1, 

t 


ABOUNDS 
NJSEG=2, 
JLTNEC1 >-1 , 


JK10U(1>=2, 

JKHlGHd)=5, 

JTYPE(1 3=0, 

JSIGNC 1 }=1 , 

PRESSJd  3=0.7142857, 

TEMPJd  3=1.0, 

JLINE<2)=15, 

JKLOtl(23=2, 

JKH1CK<23=6, 

JTYPE(2)=71, 

JSIGN(2)=-1, 

INTER J(23= 1 , 

NKSEG=2, 

XLlNECl 3=1, 
KJLOWC 1 3=1 , 

KJHIGHd  3=15, 

KTYPEE13=50, 

KSIGNC1 3=1 , 
KLINE(23=6, 
KJL0W(23=1, 

XJHIGH(2>=14, 

KTYPE(23=71, 

KSrGN(23=-1, 

INTERK(2>=2, 

S 

SBLOCK  :#2 
NPSEG=1, 

INVISCCl >=0,  INVISC(23=0, 

» 

SPRTSEG 

JKLPI(1,1,1)=3,27,4,  JKLP[<1,2,1)=3,7,4,  IP0RDd)“1, 

S 
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Listing  E-ll.  Concluded 


(BOUNDS 

MJSEG=2, 

JKLOUOW,  JKHIGHO  )=12,  JTYPEO)=0, 

J5IGNO)=1,  PRESSJO  >=0.7142857,  TENPJO  )»1 .0, 

JUNE<2)=29, 

JKL0U(2)=1,  JK«[GH<2>=12,  JTYPE(2>=71, 

JSIGH(2)=-1,  INTERJ<2)=3, 

NKSEGa2, 

KLINEC 1 >=1 , 

KJLOWO )=1 ,  KJHIGHd )*Z8,  KTYPEO  )=71 , 

KSIGNd  )c1 ,  INTERK(1)=2, 

KLINE(2)=13, 

KJL0U(2)=1 ,  KJHlGH<2)-29,  KTYPEC2)”50, 

KSIGN(2>=-1, 

* 

(BLOCK  1*1 
NPSEG=1, 

INV1 SC(1}=0,  [NVISC(2}aQ, 

* 

(PRTSEG 

JKLPI{1,1,1)a1,19,Z,  JKLPI 0,2, 1)=2, 10,2,  IP0R0(1)«1, 

s 

(BOUND 5 
HJSEG-3, 

JLtNE(1)-1, 

JKL0Ud)»2,  JKHIGH(1)=6,  JTYPEO)a71, 

JSIGNd  )=1 ,  1IITERJ(1>=1, 

JLINE(ZJ=1, 

JKLQW(2)>5,  JKHIGH(2)=10,  JTYPE(2)=71, 

JSIGN(2)-1 ,  IHTERJ(2)>3, 

JLINE(3)=20, 

JKLOW(3)-2,  JKHIGHC3  >=10 ,  J1YPE(3)=0, 

JSIGNC3)— 1,  PRE5SJC3>=0. 67285,  TEMPJ<3)=1 .0, 

NKSEGa2, 

KIINE(1)~1, 

KJLOWd  >=1,  KJHIGHdl-20,  KTYPEO  >=50, 

KSIGNC1 )“1, 

KLINE(2)=11, 

KJ L0U{2)=1,  KJH1GH(2)=20,  KTYPE£2)-50, 

KSJGM(2>=-1, 

( 

/EOJ 
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Listing  E-12.  Output  for  Refined  Block 


NAMELIST  INPUTS: 


PREF 

= 

0. 1500006*02 

IAXISY 

3 

0 

TREFR 

- 

0.600000E*03 

NBLOCK 

= 

3 

VRAT 

s 

-0.666667E+00 

NHAX 

B 

2500 

TSUTH 

3 

0. 198600E+03 

NC 

3 

0 

RE 

■ 

O.OOOOOOE+OO 

HSPRT 

3 

50 

PR 

= 

0.720000E+00 

HP 

3 

2500 

PRT 

= 

O.MOOOOE+OO 

IFXPRT 

3 

1 

DIS2 

= 

o.oacocOE+OO 

IFXPLT 

m 

0 

DIS4 

s 

0.300000E+00 

L2PLOT 

3 

0 

DTCAP 

3 

0.700000E+01 

I  PLOT 

■ 

0 

P  CO  MAX 

= 

0. 10000 0E*02 

LMOOE 

3 

1 

SPLENO 

= 

0.1000006*01 

MBORD 

B 

3 

SHOO 

= 

D . OOOOOOE *00 

NUFDT 

3 

0 

STOPL2 

■ 

O.IOOOOOE- 19 

IVARDT 

B 

2 

STOPTR 

- 

0. 500000 E *01 

ISOLYE 

3 

1 

ALPHA 

= 

O.OOOOOOE+OO 

IRHS 

B 

1 

XMACH 

3 

O.OOOOOOE+OO 

IFILTR 

IMUTUR 

— 

1 

1 

THE  ORDER  OF  SLOCK  PROCESSING  FOLLOWS 
1.  2,  3 

FOR  BLOCK  1 
JHAX  =  IS  KMAX  =  6 
NM  =  15  UK  =■  90 

NAMELIST  8L0CK  FOR  BLOCK  1 
GAH4A  =  0.140000E+01  INY1SC  =  0  0 

COFMIX  •  0.900000E-01  LANIN  =  0  0 

OTBLK  =  O.OOOOCOE+OO  NPSEG  =  I 

NSCSEG  •  0 

NAMELIST  PRTSEG  FOR  BLOCK  1 
JKLPI 

JA  JB  JS  KA  KB  KS 

1  2  14  2  2  4  2 

NAMELIST  BOUNDS  FOR  BLOCK  1 

JSEG  JUNE  JKLOU  JXHIGH  JTYPE  INTERJ  JS1GN  Pi 

1  1  -  2  5  0  1  0.7 

2  15  2  6  71  1  -1 

KSEG  KUNE  KJLOU  KJN1GH  KTYPE  INTERK  KSIGN  PI 

1  1  1  15  50  1 

2  6  1  14  71  2-1 

GRID  PATCHES  FOR  BLOCK  1 

J-PATCHES  MINIMUM  MAXIMUM 

J  K  J  K 

1  22  14  5 

K-PATCHES  MINIMUM  MAXIMUM 

J  K  J  K 

1  22  14  5 

FOR  BLOCK  2 
JNAX  =  29  KMAX  «  13 
NN  =  29  IJK  =  377 

NAMELIST  RLOCK  FOR  SLOCK  2 
GAMMA  =  0.1400006*01  INVISC 

COFHIX  =  0.900000E-01  LANIN 

DTBLK  =  0. 0000006*00  NPSEG 

NBCSEG 

NAMELIST  PRTSEG  FOR  BLOCK  2 
JKLPI 

JA  JB  JS  KA  KB  KS 

1  3  27  4  3  7  4 


0  0 
o  a 
1 
0 

IPORD 
J  K 

1  2 


IPORD 
J  K 

1  2 


JTYPE 

FREE 

NON -CONTIGUOUS 
KTTPE 
SUP 

NON- CONTIGUOUS 


143 


AEDC-TR-89-1 5 


Listing  E-12.  Continued 


NAMELIST  SOUNDS  FOR  BLOCK 
JSEG  JUNE  JKLOU  JKHICN 
1  1  2  12 

2  29  1  12 

KSEG  KLINE  KJLOU  KJHIGH 

1  1  1  2B 

2  13  1  29 

GRID  PATCHES  FOR  BLOCK  2 

J -PATCHES  MINIMUM 
J  K 

1  2  2 

K-PATCHES  MINIMUM 
J  K 

1  2  2 

FOR  BLOCK  3 

JMAX  =  20  KHAX  =  11 

MM  =  20  UK  >  229 


2 

JTYPE  INTERJ  J  SIGN  PRESSJ 

0  1  0.714286E+00 

71  3  -1 

KTTPE  INTERK  ICS  I  CM  PRESSK 

71  2  1 

50  -1 


MAXIMUM 
J  K 
28  12 

MAXIMUM 
J  K 
28  12 


TEMPJ  JTYPE 

D.100000E+01  FREE 

MON-CONTIGUOUS 
TEMPK  KTTPE 

MON-CONTIGUOUS 

SUP 


NAMELIST  BLOCK  FOR  SLOCK  3 
GAMMA  -  0.140000E+01  IN VI  SC 

COFNIX  =  0.900000E-01  LAMIN 

DTBLK  =  O.OOOOOOE+OO  NPSEG 

NBCSEG 


0  0 
0  0 
1 
0 


NAMELIST  PR1SEG  FOR  BLOCK  3 
JKLPI 


IPORD 


JA 

JB  JS 

KA 

KB  KS 

J  K 

1 

1 

19  2 

2 

10  2 

1  2 

NAMELIST  BOUNDS  FOR  BLOCK 

3 

JSEG 

JUNE 

JKLOU  JKHIGH 

JTTPE 

INTERJ 

JSIGN  PRESSJ  TEMPJ 

JTTPE 

1 

1 

2  6 

71 

1 

1 

NON -CONTIGUOUS 

2 

1 

5  10 

71 

3 

1 

NOM-CONTIGUOUS 

3 

20 

2  10 

0 

•1  Q.6728SOE+00  0.100000E+01 

FREE 

KSEG 

KLINE 

KJLOU  KJHIGH 

KTYPE 

INTERK 

KSIGN  PRESSK  TEMPK 

KTTPE 

1 

1 

1  20 

50 

1 

SLIP 

2 

11 

1  20 

SO 

-1 

SUP 

GRID  PATCHES  FOR  BLOCK  3 


J-PATCHES  MINIMUM 
J  K 

1  2  2 


MAXIMUM 
J  K 
19  10 


K-PATCHES  MIHINUM 
J  K 

1  2  2 


MAXIMUM 
J  K 
19  10 


BC  TYPE  71  OR  77  PASS  FOR  SLOCK  1 
JSEG  =2  11  =1  NIPP  *5 
KSEG  =2  II  -2  NIPP  =28 


BC  TYPE  71  OH  77  PASS  FOR  BLOCK  2 
JSEG  =2  II  =3  NIPP  -6 
KSEG  =1  II  =-2  NIPP  =14 


BC  TYPE  71  OR  77  PASS  FOR  BLOCK  3 
JSEG  =1  11—1  NIPP  =5 

JSEG  =2  11  —3  MIPP  -12 
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COUNT 

BLOCK  DT 

L2  RESIDUAL  NASS  FLUX 

MOMENTUM  FLUXES  ENERGY  FLUX 

MAX  PERCENT 

MAX  LOCATION 

X 

Y 

VARIATION 

J 

K 

50 

1 

0.7000E+01 

0.2377E-03  -0.9017E-03 

-0.2240E-02 

0.4463E-01  -0. 1348E-02 

0.6531E+00 

14 

5 

50 

2 

0.7000E+01 

0.1228E-03  -0.4837E-02 

0.2186E-02 

0.8096E-01  -0.5744E-02 

0. 1493E+01 

28 

2 

50 

3 

0.7000E+01 

0.3263E-03  -0.5890E-03 

0.4857E-02 

0.S145E-02  -0.5930E-03 

0. 1223E+01 

2 

6 

100 

1 

0.7000E+0! 

0.9847E-04  0.4660E-04 

0.11 I6E-02 

0. 1650E-01  0.2301E-03 

0.3237E+00 

14 

2 

100 

2 

0.700DE+01 

0.4697E-04  -0.2274E-03 

0.4204E-02 

0.1177E-01  0.2909E-03 

0.8809E+00 

28 

6 

100 

3 

0.7000E+01 

0.2587E-03  0.2436E-03 

0.2883E-02 

-0.2497E-02  0.4744E-03 

0.7375E+00 

11 

2 

150 

1 

Q.7000E+01 

0.5897E-04  -0.5263E-03 

0.1345E-02 

0.4064E-03  -0.413SE-0S 

0.2882E+00 

14 

2 

150 

2 

0.7000E+01 

0.2121E-04  -0.8151E-03 

0.3D90E-02 

-0.1427E-03  -0.4698E-03 

0.2898E+00 

28 

12 

150 

3 

0.7000E+01 

0. 1819E-03  -0.2865E-04 

0.6720E-03 

-0.2916E-03  -0. 7000E-05 

0.4047E+00 

3 

6 

200 

1 

0.7000E+01 

0.4141E-04  -0.5084E-03 

0.885 5E-0S 

0.1073E02  -0.4353E-03 

0.1273E+00 

14 

5 

200 

2 

0.7000E+01 

0.1600E-04  -0.9796E-03 

0.1730E-02 

0.1365E-02  -0.8254E-03 

0.1887E+00 

17 

12 

200 

3 

0.7000E+01 

0.9149E-04  -0.2343E-04 

0.4633E-03 

0.6980E-03  -0.7005E-05 

0.2438E+00 

5 

5 

250 

1 

0. 7000E+01 

0.3002E-04  -0.3B23E-03 

0.S795E-03 

0.2204E-03  -0.3277E-03 

0.9394E-0I 

14 

5 

250 

2 

D.7000E+01 

0. 1144E-04  -0.7265E-03 

0.1124E-02 

0.S638E-03  -D.6093E-03 

0.1454E+00 

17 

12 

250 

3 

0.7000E+01 

0.2996E-C4  -0.2537E-O4 

0.3319E-03 

0.6651E-03  -0.1510E-04 

0.7927E-01 

9 

2 

300 

1 

Q.7000E+01 

0.2236E-04  -0.2877E-03 

0.3950E-03 

0.2939E-03  -0.2442E-03 

0.5501E-01 

14 

2 

300 

2 

0.7000E+01 

0.8586E-05  -0.5512E-03 

0.7799E-03 

0.4203E-03  -0.4568E-03 

0. 1172E+00 

17 

12 

300 

3 

0.70D0E+01 

D.1132E-04  -0.1032E-04 

0.2410E-03 

0.3810E-03  D.6336E-06 

0.5163E-01 

19 

10 

350 

1 

0.7000E+01 

0.I724EO4  -0.2260E-03 

0.2770E-03 

0.2181E-03  -0.1931E-03 

0.4067E-01 

9 

5 

350 

2 

0.7000E+01 

0.6S53E-05  -0.4303E-D3 

0.5421E-03 

0.27I0E-03  -0.3597E-03 

0.9024E-01 

17 

12 

350 

3 

0.7000E+01 

0.6069E-05  -0.9151E-05 

0.1644E-03 

0.2365E-C3  -0.2052E05 

0.3354E-01 

19 

10 

400 

1 

0.7000E+01 

0.1309E-04  -0.I738E-03 

O.1973E-03 

0.1182E-03  -0.1489E-03 

0.3154E-O1 

9 

5 

400 

2 

0.7000E+01 

0.4988E-05  -0.3307E-03 

0.3820E-03 

D.1624E-03  -0.2777E-O3 

0.7354E-01 

17 

12 

400 

3 

0.7000E+01 

0.4 OBOE -05  -0.6754E-05 

0. 1 150E-Q3 

0.1838E-03  -0. 1745E-05 

0.2396E-01 

19 

10 

450 

1 

0.7000E+01 

0.9894E-05  -0.1319E-03 

0. 1413E-03 

0.8497E-04  -0.1131E-03 

0.2441E-01 

9 

5 

450 

2 

0.7000E+D1 

0.3770E-05  *0.251 IE-03 

0.2747E-03 

0.1D83E-03  -0.2107E-03 

O.5714E-01 

17 

12 

450 

3 

0.7000E+01 

0.2852E-05  -O.4677E-05 

0.8374E-O4 

0.1310E-03  -0.B423E-06 

0.1715E-01 

19 

10 

500 

1 

0.7000E+01 

0.7513E-05  -0.1006E-03 

0.1027E-03 

0.6208E-04  -0.B641E-04 

0.1873E-01 

9 

5 

500 

2 

0.7000E+01 

0.2862E-C5  -0.1914E-03 

0.1993E-03 

0.7481E-04  -0.1610E-03 

0.4410E-01 

17 

12 

500 

3 

0.700QE+01 

0.2073E-05  -0.3445E-05 

0.6073E-04 

0.9328E-04  -0.6196E-D6 

0.1236E-01 

19 

10 

550 

1 

0.7000E+D1 

0.5693E-05  -O.7651E-04 

0.7533E-04 

0.4219E-O4  -0.6577E-04 

0. 1431 E - 01 

9 

5 

550 

2 

0.7000E+01 

O.2170E-O5  -O.1455E-03 

0.1458E-03 

0.51D1E-04  -0.1226E-03 

0.3408E-01 

17 

12 

550 

3 

0.7000E+01 

0.1 521 E - 05  -0.2554E-05 

0.4446E-04 

0.6922E-04  -0.4635E-06 

0.9001E-02 

19 

10 

600 

1 

0.7000E+01 

0.4309E-05  -D.5801E-04 

0.5558E-04 

0.3145E-04  -0.49B8E-04 

0-109 0E-01 

9 

5 

600 

2 

0.7000E+01 

0.1643E-05  -0.1103E-03 

0.1076E-03 

0.3579E-04  -0.9296E-04 

0.2613E-01 

17 

12 

600 

3 

0.7000E+01 

0.1124E-05  -0.1876E-05 

0.32B7E-04 

0.5110E-04  -0.31D4E-06 

0.6623E-02 

19 

10 

650 

1 

0.7000E+01 

0.3263E-05  -O.4397E-04 

0.4125E-04 

0.2491E-04  -0.3782E-04 

0.8255E-02 

9 

5 

650 

2 

0.7000E+01 

0.1244E-0S  -0.8361E-04 

0.7978E-04 

0.2549E-04  -0.7050E-04 

0.1993E-01 

17 

12 

650 

3 

0.7000E+01 

0.8366E-06  -0.1392E-05 

0.2440E-04 

D.3776E-04  -0.2206E-06 

0.4900E-02 

19 

10 

700 

1 

0.7000E+01 

0. 2468E-D5  -0.3328E-D4 

0.3076E-04 

0.1592E-04  -0.2864E-04 

0.6279E-02 

9 

5 

700 

2 

0.7000E+C1 

0.9408E-D6  -0.6330E-04 

0.5943E-04 

0.1833E-04  -0.5340E-04 

0.1518E-D1 

17 

12 

700 

3 

0.7000E+C1 

0.6242E-06  -0.1033E05 

0.1819E-04 

0.2815E-O4  -0.1544E-06 

0.3645E-02 

19 

10 

750 

1 

0.7000E+01 

0.1867E-05  -0.2518E-04 

0.2299E-04 

0.1107E-04  -0.2169E-04 

0.4767E-D2 

9 

5 

750 

2 

0.7000E+01 

0.7112E-06  -0.4788E-04 

0.4445E-04 

0. 1368E-04  -0.4039E-04 

0.1155E-01 

17 

12 

750 

3 

0.7000E+01 

0.4670E-06  -0.7682E-06 

0.1361E-04 

0.2099E-O4  -0.1051E-06 

0.27D1E-02 

19 

10 

BOO 

1 

0.7000E+01 

0.141  IE-05  -0. 1904E-Q4 

0.1725E-04 

D.9739E-05  -0. 1640E-04 

0.3608E-02 

4 

2 

BOO 

2 

0. 7000 E +01 

0.5377E-06  -0.3620E-04 

0.3332E-04 

0.9852E-05  -O.3O55E-04 

0.876QE-02 

17 

12 

aoo 

3 

0.7000E+01 

0.3506E-06  -0.56S9E-06 

0. 1022E-04 

0. 1584E-04  -0.7088E-07 

0.2028E-02 

19 

10 

aso 

1 

0.7000E+01 

0.1065E-05  -0.1438E-04 

0.1297E-04 

0.7T70E-05  -O.1238E-04 

0.2739E-Q2 

9 

5 

350 

2 

0.7000E+01 

0.4060E-06  -0.2734E-04 

0.2505E-04 

0.7526E-05  -0.2306E-04 

0.6622E-02 

17 

12 

850 

3 

0.7000E+01 

0.2642E06  -0.4217E-06 

0.7680E-05 

0.1 176E-04  -  0.4588E*i07 

0.1521E-02 

19 

10 
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900 

1 

0.7000E+01 

0.8049E-06  -0.10866-04 

0.9770E-C5 

0.5593E-05  -0.9342E-05 

0.2072E-02 

4 

5 

900 

2 

Q.7000E+01 

0.3067E-06  -0.2065E-04 

0.1B85E-04 

0.5538E-05  -0.1742E-04 

0.49906-02 

17 

12 

900 

3 

0.7000E+C1 

0.1936E-D6  -0.3137E-06 

0.5789E-05 

0.8916E-05  -0.27126-07 

O.1144E-02 

19 

10 

950 

1 

0.7000E+01 

0.6080E-06  -0.8187E-05 

0.7374E-05 

0.3B72E-05  -0.7044E-05 

0.1 571 E -02 

4 

2 

950 

2 

0.7000E+01 

0.2317E-06  -0.15596-04 

0.14236-04 

0.39706-05  -0.13156-04 

0.3816E-02 

17 

12 

950 

3 

0.7000E+01 

0.1498E-06  -0.22436-06 

0.4372E-05 

0.6S17E-05  -0.79926-08 

0.8627E-03 

19 

10 

1000 

1 

0.7000E+01 

0.4585E-06  -0.61846-05 

0.5571E-05 

0.2666E-05  -0.5319E-05 

0.1 188E-02 

4 

5 

1000 

2 

0.7000E+01 

0. 17476-06  -0.11766-04 

0, 1075E-04 

0.3077E-05  -0.991 26-05 

0.28S2E-02 

17 

12 

1000 

3 

0.7000E+01 

0.11376-06  -0.1639E-06 

0.3310E-05 

0.4794E-05  -0.5329E-09 

0.6433E-03 

19 

10 

1050 

1 

0.7000E+C1 

0. 34646-06  -D.6662E-Q5 

0.4206E-D5 

0.14896-05  -0.40136-05 

0.9005E-03 

4 

2 

1050 

2 

0.70006+01 

0.1322E-06  -0.B864E-05 

0.8134E-05 

0.2634E-05  -0.7467E-05 

0. 21896-02 

17 

12 

1050 

3 

0.7000E+01 

0.8587E-07  -0.1173E-06 

0.25006-05 

0.40766-05  0.66146-08 

0.47B3E-03 

19 

10 

1100 

1 

0. 70006+01 

0.2617E-06  -0.35196-05 

0.31866-05 

0.19596-05  -0.3025E-05 

0.A774E-03 

4 

2 

1100 

2 

0.7000E+01 

0.9977E-07  -0.6672E-05 

0.6169E-05 

0.1618E-05  -0.5621E-05 

0. 16436-02 

17 

12 

1100 

3 

0.7000E+01 

0.6624E-07  -0.80166-07 

0.19056-05 

0.2927E-05  0.1424E-07 

0.36896-03 

19 

10 

1150 

1 

0.7000E+01 

0.1963E-06  -0.2623E-05 

0.2454E-05 

0.1657E-05  -0.2245E-05 

0.5072E-03 

4 

2 

1150 

2 

0.7000E+01 

0.75096-07  -0.5014E-05 

0. 46896-05 

0.1481E-05  -0.4215E-05 

0.12496-02 

17 

12 

1150 

3 

0.7000E+01 

C.5104E-07  -0.5283E-07 

0.14476-05 

O.2183E-05  0.18976-07 

0.2897E-03 

19 

10 

1200 

1 

0. 70006+01 

0.1485E-06  -0. 1981E-05 

0. 18386-05 

O.19O8E-05  -0.17126-05 

0.3799E-03 

4 

2 

1200 

2 

0.7000E+01 

0.56346-07  -0.3760E-05 

0.35666-05 

0.10216-05  -0.3154E-05 

0.9224E-03 

17 

12 

1200 

3 

0.7000E+01 

0.3834E-07  -0.35036-07 

0.11086-05 

0.13246-05  0.21916-07 

0.21 896-03 

19 

10 

1250 

1 

0.7000E+01 

0.11086-06  -0.14836-05 

0.1425E-05 

0.97276-06  -0.1267E-05 

0.29016-03 

5 

2 

1250 

2 

0.7000E+01 

0.4261E-07  -0.2814E-05 

0.2716E-05 

0. 90386-06  -0.23616-05 

0.70366-03 

17 

12 

1250 

3 

0.7MOE+01 

0.29706-07  -0.2166E-07 

0.84066-06 

0.15586-05  0.2580E-07 

0.1462E-03 

19 

10 

1300 

1 

0.7000E+01 

0.83506-07  -0. 1094E-05 

0.1099E-05 

0,90626-06  -0.92606-06 

0.2295E-03 

9 

5 

1300 

2 

0.7000E+01 

0.3197E-07  -0.2109E-05 

0.2097E-05 

0.40456-06  -0.17586-05 

0. 52666-03 

17 

12 

1300 

3 

0.700QE+01 

0.22666-07  -0.1052E-07 

0.6442E-D6 

0.8756E-06  0.24986-07 

0.1303E-03 

19 

10 

1350 

1 

0.7000E+01 

0.63506-07  -0.B277E-06 

0.82786-06 

0.1120E-05  -0.7069E-06 

0.1670E-03 

9 

5 

1350 

2 

0.7000E+01 

0.2405E-07  -0.15616-05 

0.1615E-05 

0.2S49E-06  -0.1292E-05 

0.4115E-03 

17 

12 

1350 

3 

0.700QE+01 

0.18366-07  0.1681E-08 

0.4972E-06 

0.7B09E-06  0.29786-07 

0.8842E-04 

19 

10 

1400 

1 

0.7000E+01 

0.4732E-07  -0.6131E-06 

0.65 QBE -06 

0.1841E-06  -0.522BE-06 

0.1324E-03 

5 

2 

1400 

2 

0.7000E+01 

0.1831E-07  -0.1164E-05 

0.1240E-05 

0.4966E-06  -0.9639E-06 

0.3016E-03 

17 

12 

1400 

3 

0.7000E+Q1 

0.15386-07  0.2510E-08 

0.3873E-06 

0.7524E-06  0.2726E-07 

0.75676-04 

19 

10 

1450 

t 

0.7000E+01 

0.35356-07  -0.44856-06 

0.5144E-06 

0.26316-06  -0.3B23E-06 

0.95416-04 

9 

5 

1450 

2 

0.7000E+01 

0.13776-07  -0.BS26E-06 

0.9616E-06 

0.3557E-06  -0.7122E-06 

0.22826-03 

17 

12 

1450 

3 

0.7000E+01 

0.13006-07  0.8194E-08 

0.30306 -06 

0.61886-06  0.3085E-07 

0.6517E-04 

19 

10 

1500 

1 

0. 7000E+01 

0.27376-07  -0.3477E-06 

0.3B6BE-06 

0.49356-06  -0.2987E-06 

0.84326-04 

4 

5 

1500 

2 

0. 70006+01 

0.10536-07  -0.6290E-06 

0.7492E-06 

0.14176-06  -0.51646-06 

0.1541E-03 

17 

12 

1500 

3 

0.70006+01 

0.11016-07  0.11516-07 

0.2539E-06 

0.6455E-06  0.3122E-07 

0.3967E-04 

2 

2 

1550 

1 

O.7000E+01 

0.2050E-07  -0.22526-06 

0.3256E-06 

-0.77966-06  -0.17576-06 

0.57766-04 

6 

5 

1550 

2 

0. 70006+01 

0.83236-08  -0.4573E-06 

0.5907E-06 

-0.5B89E-08  -0.3735E-06 

0.1073E-03 

17 

12 

1550 

3 

0.70006+01 

0.9654E-08  0.17636-07 

0.1966E-06 

0.42086-06  0.3331E-O7 

0.30226-04 

2 

6 

1600 

1 

0.7000E+01 

0.1667E-07  -0.16416-06 

0.2639E-06 

-0.1137E-05  -0.1350E-06 

0.5204E-04 

5 

2 

1600 

2 

0.7000E+01 

0.65096-08  -0.32086-06 

0.5004E-06 

0.22186-06  -0.2590E-06 

0.9056E-04 

17 

12 

1600 

3 

0. 70006+01 

0.86936-08  0.1007E-07 

0.1397E-06 

0.1220E-06  0.2590E-07 

0.3290E-04 

2 

7 

1650 

1 

0. 7000E+01 

0.12916-07  -0.11276-06 

0.2187E-06 

0.2562E-C6  -0.8180E-07 

0.46946-04 

8 

3 

1650 

2 

0.7000E+01 

0.54206-08  -0.21716-06 

0.4095E-06 

0.92206-07  -0.1538E-06 

0.7069E-04 

17 

12 

1650 

3 

0.70006+01 

0.8137E-0B  0.21096-07 

0.1294E-06 

0.3859E-06  0.3216E-07 

0.2580E-04 

19 

10 

1700 

1 

0.70006+01 

0.11526-07  -0.75826-07 

0.1765E-06 

0.19026-05  -0.55316-07 

0.4492E-04 

4 

5 

1700 

2 

0.70006+01 

0.47596-08  -0.1353E-06 

0.3323E-06 

0.3140E-06  -0.9820E-07 

0.4505E-04 

17 

12 

1700 

3 

0.7000E+01 

O.7917E-O0  0.1300E-07 

0.9765E-07 

0.19036-06  0.268SE-07 

0.2531E-04 

2 

6 
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Listing  £-12.  Continued 


17S0 

1 

0. 70008*01 

0.7408E-08 

-0.4404E-07 

0. 1547E-06 

0.1009E-05 

-0.2273E-07 

0.1930E-04 

5 

3 

1750 

2 

0. 70006*01 

Q.3B35E-08 

-0.9553E-07 

0.287BE-06 

0.302 7E-06 

-0.53386-07 

0.33976-04 

18 

12 

1750 

3 

0.700CE+01 

0.7549E-08 

0.2Z47E-07 

0.9811E-07 

0.325 7E-06 

O.2935E-07 

0.2160E-04 

18 

2 

1BOO 

1 

0.7000E+01 

0.92306-08 

-0.1741E-07 

0.1273E-06 

0.4991E-06 

-0.8290E-09 

0.30096-04 

6 

4 

1600 

2 

0.7000E*01 

0.4190E-OS 

-0.30896-07 

0.2523E-06 

0.2400E-06 

0.9555E-09 

0.3765E-04 

18 

10 

1800 

3 

0.7000E+01 

0.7582E-O8 

0.2291E-07 

0.8296E-07 

0.6315E-07 

0.32066-07 

0.2852E-04 

2 

6 

1850 

1 

0.7000E+01 

0. 81586-08 

-0.4953E-08 

0.1 108E-06 

0.775 7E-06 

0.2973E-08 

0.2152E-04 

3 

5 

1850 

2 

0.7000E+01 

0.398SE-08 

0.7052E-09 

0.2179E-06 

-0.2150E-07 

0.2382E-07 

0.4146E-04 

17 

12 

1850 

3 

0.7000E+01 

0.7222E-08 

0.2392E-07 

0.7800E-07 

0.15176 -06 

0.3439E-07 

0.2448E-04 

10 

3 

1900 

1 

0.7000E+01 

0.8389E-08 

0.11866-07 

0.1042E-D6 

-0.2070E-06 

0.1495E-07 

0.3062E-04 

7 

S 

1900 

2 

0.7000E+01 

0. 3981 E -08 

0. 25356-07 

0.1977E-06 

0.4593E-06 

0.3859E-07 

0.4141E-04 

13 

2 

1900 

3 

0.7000E+01 

0.7250E-08 

0.2254E-07 

0.7217E-07 

0.6173E-07 

0.3194E-07 

0.2168E-04 

7 

10 

1950 

1 

0.7000E+01 

0.81 73E-08 

0.1364E-07 

0.1042E-06 

-0.1578E-05 

0. 22696-07 

0.34526-04 

7 

5 

1950 

2 

0.7000E+01 

0.3909E-08 

0.3693E-07 

0.185 2E-06 

-0.1461E-06 

0.49626-07 

0.367QE-04 

5 

10 

1950 

3 

0.7000E+01 

0.7072E-08 

0.2227E-07 

0.6Q44E-07 

0.6566E-07 

0.3261E-07 

0.2465E-04 

10 

7 

2000 

1 

0.7000E+01 

0.7555E-08 

0.2888E-07 

0.9774E-07 

0.3596E-06 

0.3525E-07 

0.2486E-04 

9 

4 

2000 

2 

0.70006*01 

0.3769E-08 

0.5191E-07 

0.1674E-06 

-0.21096-08 

0.6092E-07 

0.2895E-04 

4 

3 

2000 

3 

0.70006+01 

0.6604E-08 

0.2210E-07 

0.5535E-07 

0.24036-07 

0.2961E-07 

0.2104E-04 

2 

10 

2050 

1 

0.7000E+01 

0.8273E-08 

0.2937E-07 

0.S22SE-O7 

0.17706-06 

0.2775E-07 

0.2797E-04 

4 

4 

2050 

2 

0.7000E+01 

0.38036-08 

0.5718E-07 

0.15B8E-06 

-0.18766-07 

0.6199E-07 

0.3326E-04 

20 

9 

2050 

3 

D.7000E+01 

0.70586-08 

0.2123E-07 

0.46 BSE -07 

0.3627E-07 

0.2653E-07 

0.2091E-04 

10 

10 

2100 

1 

0.7000E+01 

0.63106-08 

0.2B17E-07 

0. 85476-07 

0.7301E-06 

0. 33886-07 

0. 18956-04 

4 

4 

2100 

2 

D.70Q0E+Q1 

D. 35726-08 

0.7785E-07 

0.17B96-06 

0.4253E-06 

0.8924E-07 

0.2997E-04 

10 

10 

2100 

3 

0.7000E+01 

0.7337E-08 

0.2385E-07 

0.6729E-07 

0.8361E-07 

0.32256-07 

0.2495E-04 

2 

10 

2150 

1 

0.7000E+01 

0.77496-08 

0.3497E-07 

0.8394E-07 

-0.2776E-06 

0.3769E-07 

0.2521E-04 

7 

4 

2150 

2 

0.7C00E+01 

0.36086-08 

0.7491E-07 

0. 1673E-06 

-0.2770E-06 

0.8427E-07 

0.31276-04 

8 

4 

2150 

3 

0.7000E+01 

0.6617E-08 

0.2110E-07 

0.4111E-07 

-0.1193E-06 

0.2649E-07 

0. 1969E-04 

4 

6 

2200 

1 

0.7000E+01 

0.6721E-08 

0.30186-07 

0.94196-07 

-0.5036E-C6 

0.3591E-07 

0. 1962E-04 

9 

5 

2200 

2 

0.7000E+01 

0.3361E-O8 

0.5963E-07 

Q.1468E-06 

-0.9926E-07 

0.62926-07 

0.29366-04 

14 

3 

2200 

3 

0.7000E+01 

0.6684E-08 

0.2559E-07 

0.5471E-07 

0.9231E-07 

0.29096-07 

0.19556-04 

18 

10 

2250 

1 

0.7000E+01 

0.7026E-08 

0.37216-07 

0.9466E-07 

-0. 1987E-06 

0.4237E-07 

0.21366-04 

3 

4 

2250 

2 

0.7000E+01 

0.381 9E-08 

0.8006E-07 

0.1649E-06 

0.26236-06 

0.935 7E-07 

0.3806E-04 

14 

2 

2250 

3 

0.7000E+01 

0.6889E-08 

0.2262E-07 

0.3947E-07 

0.3671E-07 

0.247BE-07 

0.2170E-Q4 

4 

8 

2300 

1 

0.7000E+01 

0.7309E-08 

0.341BE-D7 

0.7934E-07 

0.3687E-06 

0.4031E-07 

0.2348E-04 

11 

3 

2300 

2 

0.7000E+01 

0.3485E-08 

0.7649E-O7 

0.1552E-06 

0. 16196-06 

0.9026E-07 

0.3050E-04 

16 

12 

2300 

3 

0.70006*01 

0.7294E-08 

0.2921E-07 

0.5609E-07 

0.330 0E- 07 

0.3290E-07 

0.2471E-04 

15 

.6 

2350 

1 

0.7000E+01 

0.7000E-08 

0.3288E-07 

0.91966-07 

0.1800E-07 

0.4047E-07 

0.2318E-04 

3 

3 

2350 

2 

0.7000E+01 

0.3458E-08 

0.7342E-07 

0.1S11E-06 

0.2333E-06 

0.8421E-07 

0.3167E-04 

17 

9 

2350 

3 

0.7000E+01 

0.7489E-08 

0.2991E-07 

0.5273E-07 

-O.6849E-07 

0.3345E-07 

0.2355E-04 

12 

4 

2400 

1 

0.700QE+01 

0.7181E-08 

0.3668E-07 

0.B968E-07 

-0.5559E-06 

0.4622E-07 

0.2346E-04 

3 

3 

2400 

2 

0.7000E+01 

0.33766-08 

0.7487E-07 

0.1526E-06 

0.1893E-07 

0.8603E-07 

0.2666E-04 

4 

11 

2400 

3 

0.7000E+01 

0.7389E-0S 

0.2600E-07 

0.345ZE-07 

-0.5617E-07 

0.2799E-07 

0.2580E-04 

16 

3 

2450 

1 

0.7000E+Q! 

0.7509E-08 

0.4592E-07 

0.8406E-07 

0.1070E-06 

0.56776-07 

0.2144E-04 

9 

2 

2450 

2 

0.7000E+Q1 

0.3524E-Q8 

0.9181E-07 

O.1626E-06 

-0.2331E-07 

0.1084E-06 

0.2944E-04 

13 

4 

2450 

3 

0.7000E+01 

0.7984E-08 

0.3032E-07 

0. 5761 E -07 

0.14956-07 

0.3525E-07 

0.2334E-04 

15 

5 

2500 

1 

0.70006+01 

0.7082E-08 

0.3843E-07 

0.6919E-07 

0.69696-06 

0. 4394 F- 07 

0.23616-04 

11 

2 

2500 

2 

0.7000E+01 

0.3356E-08 

0.8245E-07 

0.1530E-06 

0.13836-06 

0.971  IE-07 

0.2780E-04 

6 

11 

2500 

3 

0.7000E+01 

0.7325E-08 

0.2820E-07 

0.5760E-07 

0.1871E-06 

0.3153E-07 

0.2360E-04 

11 

6 
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Listing  E-12.  Continued 


BLOCK  1  VARIABLES  AT  It  ■  2  ITERATION  NUMBER:  2500 

J  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE  V-COSINE  X  Y 

2  0.99T2E+01  0.5330E+03  0.7V26E+00  0.1500E+02  0.1000E+01  0.34251*05  0.2500E+M  0.1000E+00 

4  0.9914E+01  0.53316*03  C.7924E+00  0.1500E+02  0. 10006+01  0.3502E-04  0.75006+00  0.100DE+00 

6  0.9934E+01  0.5334E+03  C.7905E+00  0.15D0E+02  0.1000E+01  0.4344E-03  0.1250E+01  0.1000E+00 

8  0.1010E+02  0.5359E+03  C.7737E+00  0.1S01E+02  O.IOOOE+OI  0.3836E-02  0.1750E+01  0.1000E+00 

10  0.1084E+02  0.5470E+03  0.6951E+00  0.1497E+02  0.9999E+00  0.1655E-01  O.225QE+01  0.1062E+00 

12  O.1192E+02  0.5620E+03  0.5820E+00  0.1499E+02  0.9997E+00  0.2346E-01  0.27506+01  0.1187E+00 

14  0.1261E+02  0.5711E+03  0.5035E+00  0.1499E+02  0.9997E+00  0.2507E-01  D.3250E+01  0.1312E+00 

BLOCK  1  VARIABLES  AT  K  =  4  ITERATION  NUMBER:  2500 

J  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSIHE  V-COSINE  X  Y 

2  0.9912E+01  0.5330E+03  0.7926E+00  0.1500E+02  0.100CE+01  0.4923E-05  0.2500E+00  0.3M0E+0C 

4  0. 9913E+01  0.5330E+03  0.7925E+00  0.1500E+02  0.1000E+01  0.9099E-04  0.750CE+00  0.3000E+00 

i  0.9926E+01  0.5332E+03  0.7913E+00  0.1500E+0Z  0.1000E+01  0.1173E-02  0.1250E+01  0.3000E+00 

8  □. 1005E+02  0.5351E+03  0.7796E+00  0.1501E+02  0.9999E*00  0.1104C-01  0.1750E+01  0.3000E+00 

10  0. 1079E+02  0.S462E+03  0.6999E+00  0.1496E+02  0.9986E+00  0.5311E-01  0.2250E+01  0.3187E+D0 

12  0. 1192E+02  Q.5621E+03  0.5811E+C0  0.1499E+02  0.9975E+00  0.7023E-01  0.2750E+01  0.3S62E+D0 

14  0.T262E+02  0.5713E+03  0.5017E+00  0.1498E+02  0.9973E+00  0.7409E-01  0.32506*01  0.3937E+B0 

BLOCK  2  VARIABLES  AT  K  =  3  ITERATION  NUMBER:  2500 

J  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSIHE  V-COSINE  X  Y 

3  0.9912E+01  0.533GE+03  0.79Z66+00  0.1500E+02  0.10C0E+01  0.4292E-05  0.2500E+00  0.5000E+00 

7  0.9912E+01  0.5330E+03  0.7926E+0G  0.1500E+02  0.1000E+01  0.1038E-03  0.7500E+00  0.500DE+00 

11  0.9911E+01  0.5330E+03  0.7924E+00  0.1500E+02  0.1000E+01  D.1C02E-02  0.1250E+D1  0.5000E+00 

15  0.9938E+01  0.5334E+03  0.7894E+00  0.1499E+02  0.9999E+00  0.1605E-01  O.I750E+01  0.5000E+00 

19  0.1068E+02  0.5445E+03  0.7152E+00  0. 15016+02  D.9957E+00  0.9317E-01  0.2250E+01  0.53I2E+00 

23  0.1 193E+02  O.5621E+03  Q.5811E+00  0.1500E+02  0.9929E+00  0.11B7E+00  0.2750E+01  0.5937E+00 

27  0.1264E+02  O.5714E+03  0.5003E+DO  0.1500E+02  0.9924E+00  0.12306*00  0.3250E*01  0.6562E+00 

BLOCK  2  VARIABLES  AT  It  =  7  ITERATION  NUMBER:  2500 

J  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE  V-COSINE  X  Y 

3  0.991 2E *01  0.5330E*03  0.7926E*00  0.1500E+02  0.1000E+01  0.4890E-05  0.2500E+00  0.7000E*00 

7  0.991 1E*01  0.5330E*03  0.79276*00  0.1500E+02  0.1000E+01  0.8750E-04  0.7500E+00  0.70006*00 

11  0.98996+01  0.53286*03  0.7937E*00  0.1500E+02  0.1000E+01  0.1189E-02  0.1250E+01  0.7000E+00 

15  0.9781E+01  0.5310E*03  0.8057E+00  0.1500E+02  0.9999E+00  0.1680E-01  0.17506+01  0.7000E+00 

19  0.1053E*02  0.5425E+03  0.7282E+00  0.1499E+02  0.9894E+00  0.1454E+00  0.2250E*01  0.7437E+00 

23  0.1197E+02  0.5626E+03  0.5764E+00  0.14996+02  0.9B57E+00  0.1685E+00  0.2750E+01  D.8312E+00 

27  0.1268E+02  0.5720E+03  0.4950E+00  O.1499E+02  0.9852E+00  0.17176*00  0.3250E+01  0.9187E+00 

BLOCK  3  VARIABLES  AT  K  ■  2  ITERATION  NUMBER:  2500 

J  PRESSURE  TEMPERATURE  MACH  NUMBER  TOTAL  PRESS  U-COSINE  V-COSINE  X  Y 

1  0.1261E+02  0.5711E+03  0.5035E+00  0.1499E+02  0.9997E+00  0.2507E-01  0.3250E+01  0.1312E+00 

3  0.1308E+02*  0.5772E+O3  0.4453E*00  0.1499E+02  0.9997E+00  0.2569E-01  0.3750E+01  0.1437E*00 

5  0.1342E+02  0.5814E+03  0.4012E+00  0.I499E+02  0.9997E+00  0.2557E-01  0.4250E+01  0.1562E*00 

7  0.1366E+02  0.5844E+03  0.3666E+00  0. 14996+02  0.9997E+00  0.2472E-01  0.4750E+01  0.1687E+00 

9  O.1384E+02  0.5865E+03  0.3395E+00  0.1499E+02  0.9997E+00  0.2275E-01  0.5250E+01  0.1812E*00 

11  O.1397E+02  0.58B1E+03  0.3195E+00  0.1499E+02  0.9998E+00  0.19166-01  0.575DE+01  0.1937E+00 

13  0.1405E+02  0.5890E+03  0.3060E+00  0.1499E+02  0.9999E+00  0.1319E-01  0.6Z50E+01  0.2000E+00 

15  0.1409E+02  0.5895E+03  0.Z98SE+00  0.1499E+02  0.10006+01  0.7755E-02  0.6750E+01  0.2000E+00 

17  0.1411E+0Z  0.58986+03  O.Z9466+00  0.1499E+02  0.1000E+01  0.4063E-02  0.7250E+01  O.ZOOOE+OO 

19  0.1412E+0Z  0.589BE+03  O.Z925E+00  0.1498E+0Z  0.1000E+01  0.1954E-02  0.7750E+01  O.ZOOOE+OO 
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Listing  E-12.  Concluded 


BLOCK  3  VARIABLES  AT  K 

=  4 

ITERATION  HUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  HUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

1 

0.1262E+Q2 

0.5713E+03 

0.5017E+00 

D.149BE+02 

0.9973E+00 

0.7409E-01 

0.3250E+01 

3 

0.1310E+02 

0.5774E+Q3 

0.4438E+00 

0.1499E+02 

0.9972E+0D 

0.7523E-01 

0.3750E+01 

5 

0.1343E+02 

0.5815E+03 

0.3999E+00 

0. 1499E+02 

0.9972E+00 

0.7466E-01 

0.4250E+01 

7 

0.1367E+02 

0.5845E+03 

0.3652E+00 

0.1499E+02 

Q.9974E+00 

0.7213E-01 

0.4750E+01 

9 

0.13866+02 

0.5867E+03 

0.3379E+00 

0. 1499E+02 

0.997BE+00 

0.6620E-01 

0.5250E+01 

11 

0.1399E+02 

0.5883E+O3 

0.3174E+00 

0. 1500E+02 

0.9935E+00 

0.5484E-01 

0.5750E+01 

13 

0. I407E+02 

0.5892E+03 

0.3041E+00 

0.1500E+02 

0.9994E+00 

0.3544E-01 

0.6250E+01 

IS 

0.1410E+02 

0.5897E+O3 

0.2978E+00 

0.1500E+02 

0.999BE+00 

0.1962E-01 

0.6750E+01 

17 

0. 1412E+02 

0.5B98E+03 

0.2949E+00 

0.1500E+02 

0. 1000E+01 

0.9887E-02 

0.7250E+01 

19 

0.1412E+02 

0.5S99E+O3 

0.2935E+00 

0.1499E+02 

0.1000E+01 

0.4715E-02 

0.7750E+01 

BLOCK  3  VARIABLES  AT  K 

=  6 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  HUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSINE 

X 

1 

0.1264E+02 

0.S71 4E+03 

0.5003E+00 

0.15QCE+02 

O.9924E+O0 

0.1230E+00 

0.3250E+01 

3 

0.1312E+0Z 

0. 57766+03 

0.4423E+00 

0. 1501E+02 

0.9922E+00 

D.1245E+00 

D.3750E+01 

5 

0.1345E+02 

0.5817E+03 

0.3983E+00 

0.1501E+02 

0.9923E+00 

0.1235E+00 

0.4250E+01 

7 

0.137DE+02 

0.5847E+03 

0.3632E+00 

0.1501E+02 

0.9928E+00 

0.1198E+00 

0.4750E+01 

9 

0.1369E+02 

0.5870E+03 

0.3347E+D0 

0.1501E+02 

0.9938E+D0 

D.1110E+00 

0.5250E+01 

11 

0.1403E+02 

0.5887E+03 

0.3123E+00 

0.1S01E+02 

0.9957E+00 

0.9218E-01 

0.S7S0E+01 

13 

D.1411E+02 

0.5897E+03 

0.2989E+00 

0.1502E+02 

0.9985E+00 

0.5479E-01 

0.6250E+01 

15 

0, 1413E+02 

0.5899E+03 

0.2952E+00 

0.1501E+02 

0.9996E+00 

0.2751E-01 

0.6750E+01 

17 

0.14I3E+02 

0.5899E+03 

0.2942E+00 

0.1501E+02 

0.9999E+00 

C.1281E-0I 

0.7250E+01 

19 

0. 1413E+02 

0.5899E+03 

0.2938E+00 

0.1500E+02 

0.1000E+01 

0.5888E-02 

0.77506+01 

BLOCK  3  VARIABLES  AT  K 

■  8 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  NUMBER 

TOTAL  PRESS 

U-COSINE 

V-COSIHE 

X 

1 

0.1268E+02 

0.5720E+03 

0.4950E+00 

0. 1499E+02 

0.9852E+00 

0.1717E+00 

0.3250E+01 

3 

0.1315E*02 

0.5780E+03 

0.4376E+00 

0.1500E+02 

0.9849E+00 

0.1731E+00 

0.3750E+01 

5 

0. 1348E+02 

0.5822E+03 

0.3933E+00 

0.1500E+02 

0.9850E+00 

0.1724E+00 

0 .4250E+01 

7 

0.1373E+02 

0.5852E+03 

0.3571E+00 

0.1500E+02 

0.9856E+00 

0.1689E+00 

0.4750E+01 

9 

0.1393E+02 

0.5876E+03 

0.3262E+00 

0. 1499E+02 

0.9871E+00 

0.1598E+00 

0.S250E+01 

11 

0. 1409E+O2 

D.5896E+03 

0.2994E+00 

0.1500E+02 

C.9907E+00 

0.1362E+00 

0.5750E+01 

13 

0. 14196+02 

0.5907E+03 

0.2852E+00 

0.1501E+02 

0.9977E+00 

0.6838E-01 

0.6250E+01 

15 

0.14176+02 

0.5905E+03 

0.2867E+00 

0.1500E+02 

0.9996E+00 

0.2928E-01 

0.6750E+01 

17 

0.14156+02 

0.5902E+03 

0.2890E+00 

0. 1499E+02 

0.9999E+00 

0.1208E-01 

0.725DE+01 

19 

0. 1414E+02 

0.5902E+03 

0.2907E+00 

O.1499E+02 

0.1000E+01 

0.4999E-02 

0.7750E+01 

BLOCK  3  VARIABLES  AT  K 

.  ic 

ITERATION  NUMBER: 

2500 

J 

PRESSURE 

TEMPERATURE 

MACH  HUMBER 

TOTAL  PRESS 

U- COSINE 

V-COSINE 

X 

1 

0.1273E+02 

0.5733E+03 

0.4818E+00 

0.1493E+02 

0.9759E+00 

0.2184E+00 

0.3250E+01 

3 

0.1320E+02 

0.5791E+03 

0.4261E+00 

0.1496E+02 

0.9747E+00 

0.2236E+00 

0.3750E+01 

5 

0.1353E+02 

0.583  IE +03 

0.3833E+00 

0.1497E+02 

0.9749E+00 

0.2227E+00 

0.4250E+01 

7 

0.1377E+02 

0.58606+03 

0.3478E+00 

0.1497E+02 

0.9755E+00 

0.2202E+00 

0.4750E+01 

9 

0. 13986+02 

0.5885E+03 

0.3153E+00 

0. 1497E+02 

0.9767E+00 

0.2147E+00 

0.5250E+01 

11 

0.1418E+02 

0.5909E+03 

0.2795E+00 

0, 1497E+02 

0.9795E+00 

0.2013E+00 

0.5750E+01 

13 

0. 1432E+02 

0.5926E+03 

0. 2669E+00 

0.1S04E+02 

0.9980E+00 

0.6243E-01 

0.6250E+01 

15 

0. 1420E+02 

0.591 2E+03 

0.2823E+00 

0.1501E+02 

0.9999E+00 

0.1254E-01 

0.6750E+01 

17 

0. 1416E+02 

0,59066+03 

Q.2881E+00 

0.1500E+02 

0.1000E+01 

0.2230E-02 

0.7250E+01 

19 

0. 1414E+02 

0.5905E+03 

0.290SE+00 

0.1500E+02 

0. 1000E+01 

0.7153E-03 

0.7750E+01 

Y 

0.3937E+00 

0.4312E+00 

Q.4&87E+00 

0.5062E+00 

0.5437E+00 

Q.5812E+00 

0.6000E+00 

0.6000E+00 

Q.6000E+00 

0.6000E+00 


Y 

0.6562E+00 

0.7187E+00 

Q.7812E+00 

0.8437E+00 

0.9062E+00 

0.9687E+00 

0.1000E+01 

Q.100GE+01 

0.1000E+01 

Q.1000E+01 


Y 

0.9167E+0Q 
0. 1006E+01 
0.1094E+01 
0.1181E+01 
0.12696+01 
0.13566+01 
0.1400E+01 
0.1400E+01 
0.14CDE+01 
0.1400E+01 


Y 

0.1181E+01 
0.1294E+01 
0. 1406E+01 
0. 1519E+01 
0. 1631E+01 
0, 1744E+01 
0. 180QE+01 
0. 1800E+01 
0.1800E+01 
0. I800E+01 
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NOMENCLATURE 

Aj  Flux  Jacobian  formed  from  the  derivatives  of  Fj  with  respect  to  Q 

a  Speed  of  sound;  for  a  perfect  gas  a2  =  T 

E  Total  energy  per  unit  volume;  E  =  g(e  +  l/2ujUj) 

e  Internal  energy  per  unit  mass;  for  a  perfect  gas  e  =  T/(y  -  l)y 

Fj  Inviscid  flux  vector 

Gj  Viscous  flux  vector 

I  Identify  matrix  of  rank  4  or  5  for  2-D  or  3-D,  respectively 

J  Jacobian  of  the  coordinate  transformation  from  Xj  to  fj 

K  Coefficient  of  thermal  conductivity 

K]  Metric  element;  the  derivative  of  fs  with  respect  to  Xj 

P  Pressure;  for  a  perfect  gas,  P  =  Oy  -  1)  (E  -  l/2gUjUj) 

Pr  Prandtl  number:  Pr  =  /tCp/K 

Q  Conservation  vector 

qj  Heat  flux  vector 

Re  Reynolds  number:  Re  =  gaXr//t 

RHS  Right-hand-side  vector;  finite  difference  form  of  the  steady  Navier-Stokes 

equation  multiplied  by  -  At 

T  Temperature;  for  a  perfect,  gas  T  =  -yP /q 

t  Time  variable 

Uj  Contravarient  velocity  components,  (U,  V,  W) 
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Uj 

Xj 

T 

k 

X 

m 

4>2 

Subscripts 

x,  y,  z 

Superscript . 


Physical  velocity  components  (u,  v,  w) 
Spatial  coordinates  (X,  Y,  Z) 

Ratio  of  specific  heats 

Kronecker  delta 

Second  coefficient  of  viscosity 

Viscous  stress  tensor 

Kinetic  energy  factor:  l/2(-y  —  l)ujUj 

Differentiation  with  respect  to  subscript 


n 


Time  level 


